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-TITLE DOCMP = Software DDCMP 
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DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
*® 
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® 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED  * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THiS SOFT ARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
TRANSFERRED. ® 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION. * 
® 
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FACILITY: Software DDCMP 
ABSTRACT: 


This is an implementation of DDCMP in software. It performs a subset 
of the functions described in the DDCMP specification version 4.0. 
It is called as a subroutine from the sync Line driver. 


COMMON INPUTS: 

ere Stele block address 

Command from the driver to DDCMP 

Different codes associated with each command 
Contains the address of the buffer to process 
Contains the second data field 


DBDDwDwDwD 
CONOW 
nunun 


COMMON OUTPUTS: 
R Command from DDCMP to driver 


= Associated codes 
R8 = Address of the requested buffer 
R9 = Second data field 


ALL other registers are destroyed. 


ENVIRONMENT : 
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AUTHOR: Meg Dumont, CREATION DATE: 11-Apr-1981 
MODIFIED BY: 


v03-018 MMD0312 nee Dumont, 19-Jul-1984 9:39 
Fix the CRCTABLE it wasn't generating the right CRCs’. 
Also a fix to the NAK logging routine and a fix to the 
RCVMSG routine. 


v03-017 MMD0293 Meg Dumont, 23-Apr-1984 15:28 
Fix the handling of retransmit messages. There is a race 
condition that merece exists in the DDCMP interface 
where is a XMT message is in the drivers XMT_INPR 
or POSTQ then retransmission of messages can happen 
out of order. To avoid this the protocol will check 
all places that the driver may meee a xmt message after 
it is xmt. If the protocol finds XMT message in the 
ueue then it will take it from the device and put 
t back on the RTOQ. This is conte y a hack and the 
hope is that some future version of the protocol will 
handle the XMT/RTO situtation better. Incidentally ail 
of this is done at DIPL inorder to synchronize the 
various queues. 


vO3-016 MMD0261 Meg Dumont, 22-Mar-1984 14:38 
Fix so that Maintenance mode isn't entered until message 
passes the CRC checks. 


SOOoOooooooooooooooooooooQooooooooo 


OOoOoOCOCoooooooooooooo°ooo 


v03-015 MMD0223 Meg Dumont, 11-Jan-1984 10:15 
Some fixes to the new error incrementing routine. And 
all CASE statements execpt the one in DDOCMPSSETCHAR 


became SDISPATCH statements. 


v03-014 MMD0217 Meg Dumont, 6-Jan-1964 12:57 
Fix to QUEUE_XMT which makes the setting of the bits 
XMTQSM_SELECT im XMTQS$SB_FLAGS and TFSM SELT in 
TFSB_SELTIM to be done at DEVICE IPL. This fixes a 
bug where the select flag is send in a message 
but the driver doesn't get informed and thus the 
the XMTER doesn’t get shut down nor does RTS get dropped. 
This would show up (for example) as REMOTE PROCESS 
errors on a multipoint control station. 


vO3-013 mmD0211 Meg Dumont, 9-Dec-1983 12:59 
Fix to maintenance meee to ensure that DECnet shuts down 
the Line and brings it in MOP mode. Fixed bug in 
DDCMPSTIMER where in Trib mode an ACK could be sent even 
if we did not own the select flag. 


vO3-012 MMD0192 Reg Dumont, 15-Jun-1983 13:19 
Support for a new interface between the protocol timer and 
the device driver timer routine, Fixes to the prete ol 
prompted by bugs found in the V3.5 protocol. These inciude 
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@ problem in message retransmition where the qroreret did 

not retransmit messages in response to a NAK in half duplex 
and trib mode. Cleaned up the handling of retransmitied 
messages. Fixed a bug where a REP could be inccorrectly 

sent after an NAK had been sent. Fixed a ~~ in the timer 
handler where two error bits were being sent when a selection 
timeout occured. 


ooo 
Oooo 
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Oooo 


Other fixes include adding the capabilty to wait a longer 
time before dro ping the line to a peristant error on 
startup. Also c ang ng full duplex operation such that 

it does not send idle ACKs on the Line. 


vO3-011 ™MD0190 Meg Dumont, 13-Jun-1983 11:28 
Reset select timeout counter on receipt of a message with the 
select flag. Fix to save the receive message size when calling 
DDCMPSXMTMSG from DDCMPSRCVMSG. Added a check so that no 
messages are queued to the XMTQ unless we own the select flag. 


v03-010 0170 Meg Dumont, 35-May-1983 12:54 
Add support for starting and stopping the DDCMP timer 


v03-009 MMD0166 Meg Dumont, 27-Apr-1983 17:55 
Cleanup of the routine DDCMPSXMTMSG 


v03-008 ™mD0008 Meg Dumont 10-Oct-1982 20:27 
Fix missing quote on . IDENT 


v03-007 ™MD0007 a Dumont, 8-0ct-1982 18:33 
Add SDYNDEF to system definitions. Clean up handling of 
select flags. Force sending of ACKs on half duplex point 
to point selection timeouts. 


v03-005 mmD0005 Meg Dumont 30-Jun-1982 10:01 
Add a special delta for tribs so that the user can 
set via the selection timer in which interval the 
station should deselect itself. Fixed a problem in 
RCVMASG when rcving a STRT and in REPTIM took out 
check for X > A so that it will always branch to check 
entries on the RTOQ. 


v03-004 mMD0004 Meg Dumont, 18-Jun-1982 17:04 
Fix to always check for entries in the RTOQ. Change BNEQ 
fo BLSS when checking persitant err-cs. nee code so that 
f no message is ever transmitted then device won't be 
shutdown by max RTO's being reached. 


v03-003 mmMD0003 Boe Dumont 25-May-1982 16:09 
Fix to sync to IPLS_TIMER before queue ing entries onto the 
timer queue. Clean up of reply and selection timer handling. 


v03-002 mmD0002 Meg Dumont esohara 190s 13:54 
Change to send the select flag in message if no other message 
to transmit. Also change when to check the max message 
counter to be before sending the next message. 


vO3-001 mmD0001 Meg Dumont, 15-APR-1982 16:28 
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Py 
3; Macros 
eo 


Bit definitions 
MACRO BITDEF BLK,SYM,BITVAL 


"BLK'SV_"SYM® = BITVAL 
*BLK'SM_*SYM’ = 1a<BITVAL> 


: Constant definitions 


“MACRO CONSTDEF BLK, SYM, CONSTVAL 
"BLK'SC_'SYM’ = CONSTVAL 
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: Define events 
“MACRO DDCMPEVDEF EV 


IF B, Ev’ 

ue _SPHASE = _SPHASE + 1 

. SEVCOD = _SEVCOD + 1 
ont BOCMPSC_EV~'Ev’ = _SEVCOD 


; Calculate the size of the tables 
“MACRO CALC EV 
IF 


NB, EV" 
cupc  DDCMPSC.MAX_EV = DDCMPSC_MAX_EV + 1 


: Macro to build DDCMP tables 
“MACRO DDCMPTABLES VECTOR, ?SS 


DOCMPSC_MAX_EV = -1 ; Total number of events 
_SEVCOD = 1 3 Dumuy variables 
_SPHASE = 0 
. IRP A,<VECTOR> ; Determine the table size 
CALC A 

-ENDR 

ss _SPHASE = 0 

: .IRP A, <VECTOR> ; Fill the tables 


DOCMPEVDEF A 


-=SS 
-ENDM 
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Macro to initialize DDOCMP state tables 


Beko 


MACRO STTAB DFLT_STA,DFLT_ACT sInit the state transition table 
DDCMPSC_NUMEVT s pow, MAX_EV + 
_SACT_NOX ; Init the action routine index 
«IF NOF atte att gACT® 
mere, or -SACT_NDX 
“SACTINDX + 1 
~ENDC 
DDCMPSAB_STTAB: .REPT — DDCMPSC NUMSTA * DDCMPSC_NUMEVT 
tM <DDCMPSC_STA_'DFLT_STA'@DDCMPS$C_ACTBITS> + ACTS_"DFLT_ACT’ 
DDCMPSENDTABLES=. 
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: Macro to move the current position just past the table area 


«MACRO ENDSTTA 
- =DDCMPSENDTABLES 
-ENDM 


NOUS UWI O 


: Macro to move current position to the proper event area 


-MACRO EVENT EV 3; Move PC to proper event 
-=DDCMPSAB_STTAB + <EV * DDCMPSC_NUMSTA> 
~ENDM 


: Macro to fill the build and enter the state transition table element 


~MACRO STATE CURSTA,NXSTA,ACTION,?LL ; Make table entry 


So 
rc 
c 


=. +DDCMPSC_STA_"CURSTA' 

vIF NDF -ACTS_"ACTION® 
ACT$_"ACTION’ = _SACT_NDX 
_SACT_NDX = “$ACTNDX + 1 


oo 


- ENDC 
-BYTE <DDCMPSC_STA_"NXSTA’ @DDCMPSC_ACTBITS> + ACT$_*ACTION® 
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- ENDM 
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such 
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transfer vec 


ansl 
Limit 


16-SEP=1 
SSE p =| 


unspecified index 


38t 98:79:82 


ates into the CASEx instruction. It calculates the 
parameters from the <index,displacement> List 


specfied in the ‘vector’ parameter. yo a 


value w 


as if the index were out of bounds. 
Example: 
SDISPATCH RO,<- 
sindex displacement 
<Cl, NSPS$RCV_CI>,=- 
<tc, NSPS$RCV_CC>,- 
<D1,  NSPS$RCV=DI>,- 
‘ <DC, NSPSRCVDI>,- 
BRW NSPSRCV_ILLMSG 
CRO S$DISPATCH, 
-MACRO $DSP1,$DSP1_1 
-IRP = $DSP1_2,$DSP1_1 
$DSP2 $DSP1_2 
.ENDM 
«MACRO $DSP2,$DSP2_1,$DSP2_2 
~=<$D$P2_1-PND#2 + § 
WORD SDSP2_2-S 
~ENDM 
-MACRO $8ND1,$B8ND1_1,$8ND1 ¢-$BND1_3 
$BND2 $B8ND1_1,$8ND1_2 
MACRO S$BND2,$BND2_1,$BND2 § 
LIF $B8N52_1,$8N52_2-., 
-ENDM 
-MACRO $BND $BND_1,$BND_2 
.IRP = $BND 5.<$BND_2> 
SBNDT $BND-1,$BND_3 
.ENDM 
_ =0 
SBND GT, <VECTOR> 
$BND LT,<VECTOR> 
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spatch table is set up 
n the bounds of the 

r is associated with a diplacement which transfers 
or to the first location after the CASE statement, i.e., behaves 


Message type in RO 


Process CI message 
Process CC message 
Process DI message 
Process DC message 


Message type unknown 


INDX, VECTOR, TYPE=W,NMODE=S*°#, ?2MN, 2MX,?S,?SS,222 


-=SBND2_2 


<o | 
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CASE‘ TYPE INDX, #<MN=22>, NMODE '<MX=MN> 
, .REPT = MX=MINGT 
;WORD  <MX=MND®2 + 2 
NDR 
2S 
$D0SP1 <<VECTOR>> 
~=<MX-MND*2 + S + 2 
.ENDM 
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; This macro sets up the network management definitions for the 
: count fields 


MODOC OOOCOCO 
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MACRO COUNT Pp ,BITMAP=NO, WIDTH=8,LOC 
$S$S$TYP = TYPE & TYP 
<BITMAPD<TESS, Nisstve s _SSSTYP! <NMASM_ CNT_MAP> 


itt I N < 

$ : Se + reserved smash width 
LIF ON cvIDTH>< >. $ suid = <18NMASV_CNT_W 

LIF IDN <WIDTH>< $$WID = COONMAS. CNT. “wID> 

LIF DN <uLDTHD<s 2> gossuld = ¢ aNMASY CNT“WID> 

LIF €Q $ d bit width value 
MOVW ACNRASA eft a Loc 

.ENDM COUNT 
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417; 
213 ; DDCMP constants 
419 ; 
i$ 
4 ; 3 Message fields with constant values 
bog * 
5 425 CONSTDEF DDOCMP,ACK,1 3 Acknowledge control message 
4 § CONSTDEF 49 ar ; Negative acknowledge control message 
00 427 CONSTDEF DDCMP,REP ; Reply to msg number control message 
88 4 8 CONSTDEF DDCMP,STRT,6 ; Start protocol control message 
: 3 CONSTDEF DOCMP,STACK,7 ; Start acknowledged control message 
000 431 CONSTDEF DOCMP,ENQ,5 : Control message identifier 
4 4 § CONSTDEF DOCMP,SOH,129 ; Data message identifier 
000 4335 CONSTDEF DOCMP,DLE,144 ; Maintenance message identifier 
0000 434 CONSTDEF DOCMP,SYN,150 : SYN byte identifier 
444 : 2 CONSTDEF DOCMP ,,DEL,255 3; DEL byte identifier 
0000 437; 
0000 438 ; NAK reason codes 
0000 a0 
000 441 CONSTDEF DDCMP ,NAK1,1 3; Header CRC 
000 rr CONSTDEF DDCMP ,NAK “g 3; Data CRC 
000 4435 CONSTDEF DOCMP,NAK3S, ; REP response NUM field in REP # R 
0000 444 CONSTDEF DDCMP ,NAK8,8 ; Buffer for incoming data unavailable 
0000 445 CONSTDEF DDCMP ,NAKY,9 3; Receive overrun 
0000 a CONSTDEF DDCMP,NAK16, 16 ; RCV'd data message (COUNT) was too 
0000 44 ; long for buffer 
$8 ret CONSTDEF DDCMP,NAK17,17 ; Message header format error 
000 450; 
4 451 ; Misc constants 
3 oe 
O00 454 CONSTDEF DDCMP ,MSGCNT_LIMIT,7 ; Maximum msgs that one can send in 
00 455 3 a selection field the default 
000 456 ; for the MSGCNT field is normally 4 
000 457 CONSTDEF DDCMP ,MODULO,127 3: Mod for modulo arithmetic 
000 489 
460 ; Reply timer handli 
3 481 ply ndling 
£8 CONSTDEF DDOCMP, ,REALCLOCK,1 3; Use a real time clock 
BS 464 CONSTDEF DDCMP, ,EOINTVL,2 3; Use end of selection interval 
465 CONSTDEF Beare oma at 3 3 Use next selection interval 
0 466 ONS TDEF DDCMP MILLI, 1000 > Set size of a millisecond 
4 ONS TDEF DDCMP QUA, 250 3; Set size of a quater second 
4 8 CONS TDEF DDCMPRUNTOE ,5*1000*1000 ; el a tor cunning protocol 
3 C -5 seconds 
cf CONSTDEF DDOCMP, TRIBTQE,25*100*1000 ; Delta for protocol cyening in 
47 3 trib mode 1 tick / .25 seconds 
$76 CONSTDEF DOCMP,STPTQE,30*1000*1000 ; Delta for_stopped protocol 
47 3 1 tick / 3 seconds 
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495 
£38 $ 
3 3 STORAGE 
299 3; The following table Lists the events that can occur in the protocol 
88 $0) ; all input from the driver must map into these events. 
00 8 
00 503 DDCMPTABLES<- 
8008 eRe <RCV>,= ; Receive a data message or an ACK 
000 505 - 3; NAK, or REP control message 
8 288 <STI>,- ; Receive a start initiate 
<STA>,=- 3; Receive a start acknowledge 
00 508 <RMM>,= : Receive a maintenance message 
0000 509 <XMT>,= 3; Transmit a message 
0000 510 <REP>,= ; Message to set up for reply timeout 
0000 511 <SRT>,=- ; User initiate start protoco 
0000 218 <STP>,= ; User initiate stop protocol 
0000 51 <QMT>,= ; User informs protocol that its XMTQ 
0000 514 - : is empty 
0000 515 <MNT>,= ; User initiate set maintenance mode 
0000 516 <ERR>,= ; User requests error buffers , 
0000 517 <CHR>,= : Set Line and station characteristics 
0000 518 <LNK>,= 3; The Link was lost 
0000 519 <LER>,= ; Error on msg RCV'd 
0000 520 <STT>,= ; Start the DDCMP timer 
0600 521 <SPT>,=- 3; Stop the DDCMP timer 
0000 5 ¢ 
0000 5 
0000 524; 
4 2 2 3 Define DDOCMP protocol states 
00000000 0000 527 DDCMPS$C_STA_HLT = 0 : DDCMP is halted 
00000001 0000 528 UVOCMPSC_STA_RUN = 1 : DDCMP is running 
0000000 000 529 DDCMPSC_STA_IST = ¢ ; Start initiated 
0000000 000 530 CMPSC_STA_AST = ; Start acknowledged 
00000004 4 531 DDCMPSC_STA_MNT = 4 ; DDOCMP is in maintenance mode 
00000005 000 236 DDCMPSC_STA_FR1 = 5 ; There are three free states to 
000000 000 53 phd 9 BELLS = 6 ; keep the tables quadword 
0000000 900 334 DDCMPSC“STA-FR3 = 7 ; aligned 
00000008 0000 5 § DDCMPSC_NUMSTA = 8 ; This value allows a quadword 
000 5 3 entry per event will be difficult 
8 8 3 to change 
siete t4 0 40 DDCMPSC_ACTBITS = 5 ; Number of action bits per entry 
0000000 0 41 DDCMPSC_STABITS = 3 ; Number of state bits per entry 
000000E0 33 4g DDCMPSC"STAMSK = <7>a5 ; State bit mask 
44 ; 
09 46 3; Initialize the state transition table with default state and action 
4 ° 
: 7 STTAB HLT,BUG 
; 29 EVENT DDCMPSC_EV_RCV ; RCV_a data message or an ACK, NAK 
0 z; or REP control mesage 
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Protocol in wrong state 


STATE UHLT, HLT, IGNORE é 
STATE RUN, RUN, RCVMSG ; Message was received 
STATE IST, IST, SENDSTRT 3 Send the STRT request 
STATE AST, RUN, RCVMSG ; Start may be acknowledged 
STATE MNT, MNT, IGNORE : Protocol in worng state 
STATE FRI, FRI, BUG 3 Protocol should never be 
STATE PRG. FR2, BUG 3 be in any of these states 
STATE FRS, FR3, BUG 

EVENT DDCMPSC_EV_STI ; RCV a STRT message 
STATE HLT, HLT, IGNORE ; User must start ‘one 
STATE RUN, HLT, HALT ; Halt the protoco 
STATE IST, AST, STARTACK 3; Wait for a start ack'd 
STATE AST, AST, STARTACK 3; Wait for start ack'd 
STATE MNT, HLT, HALT ; Halt the protocol 
STATE FRI, FRI, BUG 3; Protocol should never 
STATE FR2, ERG. BUG ; be in any of these 
STATE FRS, FRS, BUG 3; states 

EVENT DDCMPSC_EV_STA ; RCV a STACK message 


; Protocol must be running 
; Receive the msg 
STATE IST, RUN, RCVMSG 3; Receive the message 


STATE AST, RUN, RCVMSG ; Receive the message 
STATE MNT, MNT, IGNORE ; Ignore message 
STATE FRI, FRI, BUG 
STATE At 4g BUG 
STATE FRS, FRS, BUG 

EVENT DDCMPSC_EV_RMM ; RCV maintenance message 
STATE HLT, HLT, IGNORE ; Protocol is in wrong state 
STATE RUN, HLT, HALT 3; Protocol is on wrong state 
STATE IST, MNT, MAINT 3 Receive a maintenance message 
STATE AST, MNT, MAINT 3; Receive a maintenance message 
STATE MNT, MNT, MAINT ; Receive a maintenance message 
STATE FRI, FRI, BU 
STATE PRG. FR2, BUG 
STATE FRS5, FRS, BUG 

EVENT DDCMPSC_EV_XMT ; Transmit a message 
STATE HLT, HLT, IGNORE ; Protocol is in wrong state 
STATE RUN, RUN, XMTMSG ; XMT a data or control ms 
STATE IST, IST, STARTING : Protocol is in wrong state 
STATE AST, AST, STARTING : Protocol is in wrong state 
STATE MNT, MNT, MAINT ; XMT a maint mg 
STATE FRI, FRI, BUG 
STATE FR2, PRG. BUG 
STATE RS, FRS, BUG 

EVENT DDCMPSC_EV_REP ; Message to reply timeout 


STATE HLT, HLT, IGNORE : Protocol is in wrong state 
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609 STATE RUN, RUN, REPTIM ; Reply timeout the message | 
e19 STATE IST, IST, IGNORE 3; Protocol is in wrong state 
1 STATE AST, AST, IGNORE ; Protocol is in wrong state 
8 $16 STATE MNT, MNT, CMPMNT ; Complete the maint message 
61 STATE FRI, FRI, BUG 
0 614 STATE ERG. ERG. BUG 
8 oi? STATE FRS, FRS, BUG 
; ei? EVENT DDCMPSC_EV_SRT 3; Start the protocol 
0 is STATE 4HLT, IST, STARTINT :; Enter to init the protocol 
8 ° 0 STATE RUN, RUN, IGNORE ; Set wrong state for action 
1 STATE IST, IST, IGNORE ; Set wrong state for action 
0 6 § STATE AST, AST, IGNORE ; Set wrong state for action 
0030 6 STATE MNT, MNT, IGNORE ; Set wrong state for action 
bp 8 624 STATE FRI, FRI, BUG 
0 625 STATE FR2, sage BUG 
8 8 ? g STATE FRS, FRS, BUG 
0038 ? 8 EVENT DDCMPSC_EV_STP : Stop the protocol 
003 630 STATE HLT, HLT, HALT ; Enter to stop the protocol 
0038 631 STATE RUN, HLT, HALT 3; Enter to stop the protocol 
0038 636 STATE ST, HLT, HALT :; Enter to stop the protocol 
Ones 6 STATE AST, HLT, HALT ; Enter to stop the protocol 
003 634 STATE MNT, HLT, HALT ; Enter to stop the protocol 
003 635 STATE FRI, FRI, BUG 
Ope 6 $ STATE FR2, PRG. BUG 
bose ? 8 STATE FRS, FRS, BUG 
site 639 EVENT DDCMPSC_EV_GMT 3; XMTQ is empty 
One e 641 STATE HLT, HLT. IGNORE ; Protocol is in wrong state 
040 26 STATE UN, RUN, QEMPTY ; Does protocol have work 
0040 64 STATE IST, IST, IGNORE : Protocol is in wrong state 
0040 644 STATE AST, AST, QEMPTY ; Does protocol nave work 
0040 645 STATE MNT, MNT, IGNORE :; Protocol is in wrong state 
004 64 STATE FRI, FRI, BUG 
004 64 STATE R2, PRG. BUG 
094 ot8 STATE FRS, FRS, BUG 
One $30 EVENT DDCMPSC_EV_MNT ; Enter maintenance mode 
: 636 TATE HLT, MNT, STARTMNT 3; Set protocol to maint mode 
4 65 STATE RUN, MNT, STARTMNT 3; Set protocol to maint mode 
04 654 STATE IST, MNT, STARTMNT : Set protocol to maint mode 
4 655 STATE AST, MNT, STARTMNT 3; Set protocol to maint mode 
4 6 § STATE MNT, MNT, STARTMNT ; Set protocol to maint mode 
4 2 STATE FRI, FRI, BUG 
4 28 STATE FR2, roe. BUG 
: $23 STATE FRS5, FR3, BUG 
: 98) EVENT DDCMPSC_EV_ERR ; User requests error buffers 
5 beg STATE HLT, HLT, RETERR ; Return error bfrs requested 
5 664 STATE RUN, RUN, RETERR 3; Return error bfrs requested 
5 665 STATE IST, IST, RETERR ; Return error bfrs requested 
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STATE AST, AST, RETERR ; Return error bfrs requested 
STATE MNT, MNT, RETERR ; Return error bfrs requested 
STATE FRI, FRI, BUG 
STATE ERG. ERG. BUG 
STATE FRS, FRS, BUG 
EVENT DDCMPSC_EV_CHR ; Set Line and station char 
STATE HLT, HLT, SETCHAR ; Set char only when halted 
STATE RUN, RUN, IGNORE ; At any other time ignore 
STATE IST, IST IGNORE ; At any other time ignore 
STATE AST, AST, IGNORE ; At any other time ignore 
STATE MNT, MNT, IGNORE ; At any other time ignore 
STATE FRI, FRI, BUG 
STATE PRG. ERG. BUG 
STATE FRS, FR3, BUG 
EVENT DDCMPSC_EV_LNK ; Link was lost 
STATE HLT, HLT, IGNORE ; Protocol was in wrong state 
STATE RUN, IST, STARTINT ; Will have to reinit 
STATE IST, IST, STARTINT ; Will have to reinit 
STATE AST, IST, STARTINT ; Will have to reinit 
STATE ve MNT, IGNORE 
STATE FRI, FRI, BUG 
STATE 4 ERG. BUG 
STATE FRS, FRS, BUG 
DDCMPSC_EV_LER 3; An_error was detected on the 
; RVC'd message such that a NAK 
3; must be sen 
STATE HLT, IGNORE 
STATE RUN, SENDNAK ; Send a NAK 
STATE IST, SENDNAK ; Send a NAK 
STATE AST, SENDNAK ; Send a NAK 
STATE MNT, IGNORE 
STATE FRI, BUG 
STATE FR2, BUG 
STATE FRS, FRS, BUG 
EVENT DDCMPSC_EV_STT ; Start DDCMP timer 
STATE HLT, HLT, START_TIMER : Start timer only when halted 
STATE RUN, RUN, IGNORE > At any other time ignore 
STATE IST, IST, IGNORE ; At any other time ignore 
STATE AST, AST, IGNORE 3; At any other time ignore 
STATE MNT, MNT, IGNORE ; At any other time ignore 
STATE FRI, FRI, BUG 
STATE FR2, ERG. BUG 
STATE RS, FRS, BUG 
EVENT DDCMPSC_EV_SPT ; Stop DDCMP timer 
STATE HLT, HLT, STOP_TIMER ; Stop timer only when halted 
STATE RUN, RUN, IGNORE ; At any other time égnore 


STATE IST, IST, IGNORE ; At any other time ignore 
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STATE AST, AST, IGNORE 3 At any other time ignore 

arate MNT, MNT, IGNORE 3; At any other time ignore 

STAT FRI, FRI, BUG 

STATE ERG ERG. BUG 

STATE FRS, FRS, BUG 


ENDSTTAB 
; Local storage for CRC table 


POLY: 
CRCTABLE: ero *x0 
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; The following routine acts as an interrupter between the commands that 
; the driver sends to DDCMP and the dispatch routine in this subroutine. 
; It takes the information passed to DDCMP via the register and decides 
; which event DDOCMP is to perform. 


—PARAAARARARAASAASLASALALL ALAA LESSEE ESSE SEER EERE EERE REE ERE EERE ER 


LIST THE INTERFACE MEANINGS 
HAT FMT AND FOR 


TC... STAND 


—PARARARARARAAAAAAALALASA LALA ASE ELSES ELAR ERE SEER ERE R EERE EEE EEE EEE RES 


RS = Contain the address of the TF block 

Rg = Contains the command to DDCMP 

R? = Contains the code pertaining to the command 
R8 = Address of the buffer to process 

R9 = Zero on input 

IPL = FIPL 


R4 = Contain the event code 

RS = Contain the address of the TF block 

R6, R7 & RO must be prenerved 

R8& = Address of the header if this is a receive msg 
else it contains the addr of the buffer 


MOVL TFSA_GFB(RS) ,R3 ; Get the global block address 
CLRL R4 ; Clear the register 
SDISPATCH R45, TYPE=B,- 
oe : index saction 
<DLKSC_RCVMSG OMPSRCVMSG>- ; Receive a message 
<DLKSC_XMTMSG DMPSXMTMSG>- ; Transmit a message 
<DLKSC_REQEBA DMPSREQEBA>- ; Request the error block 
<DLKSC_USRINT DOMPSUSRINT>- ; User initiates a state 
<DLKSC_CHAR DMPSCHAR>- : Set trib char 
<DLKSC_START_TIMER DMPSSTRIMER>- ; Start DDCMP timer 
<OLKSC_STOP_TIMER DMPSSTPTMER>= ; Stop DDCMP timer 
MOVZ2WL 9 #DLKSM_CMDERR,R7 : If all else fails then 
: set the error condition 
BRW DDCMPSREPORT ; Branch to report the bug 
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E 3 
E 4 DMPSXMTMSG: 
oA 7 ie E 5 BBS #OLKSV_QEMPTY,R7 198 :; If BS then XMTQ empty detectd 
7 00 E BBS #OLKSV"MSGSENT,R?, 208 : If BS msg to reply 1/0 
4 04 EA MOVB #ODCMPSC_EV_xMf,Ré ; Set event to XMT a msg and 
1 E : 5$: BRw DOCRESEVENT ; jump to dispatch the event 
54 ; * : 10$: poye #DDCMPSC_EV_OQMT,R4 3 empty 
54 0 90 F 11 208: MOVE #ODCMPSC_EV_REP,R4 ; Message to reply timeout 
F 11 4 1 BRB 5$ 
OFA 14 DMPSCHAR: 
54 09 + FA 15 MOVW #ODCMPSC_EV_CHR,R4 ; Set event to set Line char 
O0A 1 OFD 18 BRW DOCMPSEVENT : jump to dispatch the event 
1 8 \8 DMPSREQEBA: 
54 OA 99 1 ° 1 MOVW #DDCMPSC_EV_ERR,R4 ; Set event to retrieve err blk 
009D 1 ; ? 9 BRW DDOCMPSEVENT 3; jump to dispatch the event 
106 § DMPSUSRINT: 
57 95 198 TSTB R7 : If no char were set then 
. ie ie : BEQL 2208 3: branch 
O14 § ; Else test to determine which state the user wants 
06 57 02 1 10A 3 BBC #OLKSV_MAINT,R7,200$ 3; If set then maint mode 
5 09 60 106 8 MOVB #DDCMPSC_EV_MNT,R4 ; set event and 
008F 1 111 0 RW DOCMPSEVEN ; jump to dispatch the event 
06 57 00 ) 114 1 200$: BC #OLKSV_START,R7,210$ : If not BC then START protocl 
06 0118 é MOVB  #ODCMPSC_EV_SRT.R4 t set event and 
0085 = 31 gre 3 BRw DCMPSEVEN 3 jymp to dispatch the event 
06 5 01 =€1 11 34 210$: BBC #OLKS$V_STOP,R7,220$ : If not BC then STOP protocol 
54 07 90 3 ; 5 MOVB #DDCMPSC_EV_ TP,R4 3; set event and 
00768 «(31 : § 2908 BRW DOCMPSEVENT 3; jump to dispatch the event 
57 91 3¢ 61 ; 8 " MOVZWL = #DLKSM_BADSTATE ,R7 ; set the error | 
0137 1 4 ik BRw DDOCMPSREPORT 3; branch to report the error | 
12E 841 DMPSSTRIMER: | 
54  0€ 99 12E aX: MOVW #ODCMPSC_EV_STT,R4 ; Set event to start the timer | 
006F 1 ! } ry BRW DOCMPSEVENT ; jump to dispatch the event 
134 45 DMPSSTPTMER: 
54 OF 99 134 rf} MOVW #ODCMPSC_EV_SPT,R4 ; Set event to stop timer 
0069 1 4 z oh BRW DDCMPSEVENT ; jump to dispatch the event 


a ——E = 


DDCMP = Software DDCMP 16-SEP-1984 00:50:47 VAX/VMS M v04-00 Pp 
yOseC00 Command Interrupter : oat EEE YORIVER. SREIDDCMPLMAR: 1 ~~ (3) 


13A 
135A iI DMPSRCVMSG: 
0 88 QO13A § BISB2 #TFSM_RCVDET,- ; Set that a message was 
16 A 13¢ 3 TESB_SELTIM(RS) ; RCV'd 
i 13 Fe 2 iste Pros : If not eql error on RCV 
05 8 9 14 2$ CMPB Mr Ree SCORE) .AODCAPSC_ENG :; Is the msg a control msg 
1 13 O14 5 BEQL 110$ : Branch if it is 
81 8F 8 91 014 28 CMPB MF DSB_MSGID(R8) ,4DDCMPS$C_SOH :; Is the msg a data msg 
4 13 0148 5 BEQL 1203 : Branch if it is 
90 8F 68 91 0140 60 CMPB MF DSB_MSGID(R8) ,4DDCMPSC_DLE ; Is the msg a maintenance msg 
OA {3 13) ] BEQL 0$ ; Branch if it is 
68 9 : 86 TSTB MF DSB_MSGID(R8) 3; It is eecqrats that no msg 
3 was passe 
0B «13 12 64 BEAL 108$ 3 Branch if that is the case 
57 08 3¢ Biz 65 MOVZWL #DLKSM_RCVERR,R7 ; Set the bit saying that an 
15A $8 3; unrecognized msg was received 
0108 31 iets re BRW DDCMPSREPORT ; Branch to report the bug 
015D 58? 3 
8128 570 3; Handle maintenance messages 
54 03 90 b18p ere {00$: Move #DDCMPSC_EV_RMM,R4 ; Set maint msg received 
41. 11 3169 th BRE DOCMPSEVENT 3 jump to dispatch the event 
016 Boe 3 
016 876 ; Handle when no message was received 
B13 878 fogs 
57 04 He 016 879 MOVZWL #DLKSM_CMDERR,R7 3: a null command hence 
OOF D 1 B16 g80 BRW DOCMPSREPORT 3 branch to report the error 
bie He 3 
016 83 ; Get the type of control field 
o1e8 Bas | 
16 
52 01 A8 9A 188 Bay 110$: MOVZBL MFDSW_TYPFLG(R8),R2 3 ye = msg subtype field 
: into 
06 52 91 O16C 389 CMPB R2,#DDCMPSC_STRT : If the msg was not a STRT 
oS ie Hy 890 BNEQ 11 : Branch to next check else, 
54 01 90 3 1 91 MOVB #DDCMPSC_EV_STI,R4 ; set the req: with the event 
2D =«s«11 1% 3 BRB DOCMPSEVENT : & jump to dispatch the event 
07 52 91 178 94 115$: CMPB Rg #DDCMPSC_STACK : If the msg was not a STACK 
is 17 95 BNEQ 1 : Branch to next check else, 
54 ; 4 178 36 MOVS #ODCMPSC_EV_STA,R4 3 set the event and 
00 1 Ve : BRW DOCMPSEVENT 3 jump to dispatch the event 
54 00 90 181 3 120$: MOVB #DDCMPSC_EV_RCV,R4 ; For ACK, NAK, REP and all 
1D «(11 ? apo BRB DDCMPSEVENT ; data msg set event and jump 
186 902; 
186 308 s if any errors were found then set which error and jump to record via 
186 904 ; the dispathcer. 
186 905 ; 
186 906 
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68 90 4 % ; 6 $98 130$: coe 1 Sathana taemateatan : If EQL DLE message 
0D 7 0 €1 Q1 9 § C #OLKSV_LNKLOST,R7,140$ 3; If BS then the Link was lost 
4 C R9 1 6 319 OVW #DDCMPSC EV_LNK,R4 3; get event 
00 1 + 4 BRw DOCMPSEVENT ; jump to dispatch the event 
51 2A a3 3 198 318 135$: MOVAB GFSB_MDF_CRC(R3),R1 
OF 190 914 BSBW DDCMPSINCR COUNTER 
54 0D 90 019D 915 1408: MOVB #DDCMPSC_EV_LER,R4 ; Assume for all other cases 
1A 3i$ 3 an NAK needs to be sent 
1A 91 : althougth not always 
0000 (31 is 318 BRw DOCMPSEVENT 
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~SBTTL Common event dispatcher 
3 ¢ + DDCMPSEVENT = Common event dispatcher 
3 g : FUNCTIONAL DESCRIPTION 
9 8 : This is the common state table event dispatcner used to determine what 
929 ; is to be done and what state DDCMP is to enter next. An event only has 
.] , 3 meaning within the context of DDCMP. 
; ; : INPUTS: 
s R9 = Data area for interface with driver 

934 ; R8 = Contains the address of the rcv msg or it 
935 ; contains the address of the transmit buffer 
9 § 3 R7 = Contains codes pertinent to the routine to call. 
937 ; Ro = Commands from the driver 
4 3 RS = Must contain the address of the TF block 
939 ; R4 = Event code to be processed 
940 ; R3 = Global field block address 
941; R2 = Available for dispatcher'’s exclusive use 
3h6 3 Ri = scratch 
943; RO = scratch 
a 
946 : OUTPUTS: 
947 ; R6,R7 and RY = Contain information for interface 
948 ; R5,R8 are preserved 
949 ; RO = Contains status code from action routine 
329 ; ALL other registers are destroye 
3 
o2¢ ASSUME DOCMPSC_NUMSTA EQ 8 ; Assume quadword per event 
328 DDCMPSEVENT: 
95 MOVZBL GF$B_STATE(R3).R 3; Get state of protocol 
328 MOVL R8, TFSA_BUFPTR(RS) 3; Save the addr of the buffer 
95 MOVAQ  DDCMPSA _STTABCR4J,R1 ; Get event block address 
960 MOVB (R1)CR2), 3; Get table entr 
961 BICB3 #DDCMPSC_STAMSK,R2,R1 3; Get action routine index 
96 PUSHL R2 
44 3 
$85 ; Dispatch to the event code. The routine can assume the following 
967 ; R9 = Data from the interface 
968 ; + = Address of received message header 
969 ; R? = Data from the interface 
.] : RS = TF block address 

713 R4 = Event code 

6 3 R3 = Global field block address 

73; (SP) = Return address 

iS ; 4(SP) = R2 which contains the state inforamtion for the dispatch 
976 : Returned values 

7 3 R5 = Address of the GF block 


v04-00 p 4 | 
D _ Bay 


---- 


DDCAP - Software DDCMP 16-SEP-19 75 AX/VMS Macro v04-00 Page 25 | 
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188 78 ; R5 = ag! ress of the TF block 
H+ 4 $ RJ - Information to pass to driver on RSB 
1BB (982 
QOOOOIFS'°EF ODF 0188 § cUsiat CHANGE _STA ; Setup return address 
1¢1 4 SDISPATCH R1,TYPE=B,- 
+3} 2 5 <- 3 index action 
1c1 9 : <ACT$_ IGNORE DDCMPS$IGNORE>- : Ignore event 
1c1. 9 8 <ACTS_SENDSTRT DDOCMPSSENDSTRT>- : Send STRT message 
1c1. 9 <ACT$_BUG DDOCMPS$BUG>- 3 scote transtion bug 
1c1 = 990 <ACTS_SETCHAR DDCMPSSETCHAR>- : Set ine & staton char 
1c1 991 <ACTS_STARTINT DDCMPSSTARTINT>=- ; Init a start on prot 
1c1 99 <ACTS_STARTACK DOCMPSSTARTACK>= ; Ack a start on pret 
1¢1 99 <ACTS_STARTMNT DDCMPSSTARTMNT>=- : Enter maint 
343 994 <ACTS_RCVMSG DDCMPSRCVMSG>- 3; Rev a ascoees 
1¢1 995 <ACTS_XMTMSG DCMPSXMTMSG>- : zat a mes sage 
01c1 99 <ACTS_REPTIM DDCMPSREPTIM>- : Booty T/O the message 
01¢1 99 <ACTS_QEMPTY DDCMPSQEMPTY>- ; XMTQ fs empty 
01C1 998 <ACT$_SENDNAK DOCMPSSENDNAK>=- $ send a NAK 
01C1 999 <ACTS_HALT DCMPSHALT>=- 3: Stop the gretecet 
01C1 1000 CACTSCRAINT DDCMPSMAINT>= : Run in maint 
ite 1001 bry ph Moan D CMPMNT>- ; Comp maint messa ge 
1¢1 1308 <ACTS_RETERR ETERR>=- 3; Return error buffer 
01C1 100 cACTS STARTING DDCMPSSTARTING>- : Protocol is starting 
01C1 1308 <ACTS_START_TIMER DDCMPSSTART_TIMER>= ; Start DDCMP timer 
bie HF . ACTS_STOP_ TIMER DDCMPSSTOP _TIMER>= 3; Stop DDOCMP timer 
56 09 Hs 01EB 1997 MOVZWL S*#DLKSC ACTNOTCOM,R6 ; Set up return status for err 
57 02 3C O1EE 1008 MOVZWL #DLKSM_BADACTION,R? 
11 gira 130) BRB DDOCMPSERROR 
1F3 1010 
Ff 1011 CHANGE_STA: 
3g BEDO OIF 1 \§ POPL R2 
58 48 A DO O1F6 101 MOVL TFSA_BUFPTR(RS) ,RB ; Restore the buffer address 
0S €F OFA 1014 EXTZV #DDCAPS$C_ACTBITS,- 
51 52 03 if : 1? SDDCRP SE ~SFABITS-R2, R1 3; Get next state 
Te |S 3 ; : Because we can not always assure that tranmsits will to a byte 
iFF 4 18 3 count run out in ASYNCH DDCMP mode, we will check here that 
1FF 101 : 8 Boxapenense messages has bee validated before chaning the driver 
4 : y 3 state to maintenance mode. 
51 06 91 FF § CMPB #DDCMPSC_STA_MNT,R1 s Ch ange to maint mode 
0D i ay BNEQ 5$ ; BNEQ 
09 57 +10 ~«O€ 4 1024 BBC sOLKSV CRC,R7,5$ : If BC then message ok make change 
57 00000080 4 A ; ! 5 sict . KSM “MNTRCV, R7 : Else do not change to mop mode 
63 1 91 . 3 ° 5$: CMPB R1 ,GFSB_STATE(R3) ; New state? 
8 13 14 1 3 BEQL 
63 /.9 8 ! MOVB R1,GFSB_STATE(R3) ; Change state 
19 1031 
19 1 § 
19 1 
19 1034 


ASSUME DOCMPSC_STA_ hy; EQ 1 
ASSUME DDCMPSC“STA_IST EQ 
ASSUME DDCMPSC“STATAST EQ 


i 
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ommon event dispatcher SEP-1984 52 (CORIVER.SRCIDDCMP.MAR; 1 
4 19 1 CMPB R1,S*#DDCMPSC_STA_AST : If_not one a change to RUN, 
1 IC BLEQ 8 =_-208 : IST or AST then fall thru 
05 it : 10$: RS3 3; Return to driver 
1f 1 rh » Clear error counters 
FO O21F 1041 30S: INSV #0, #DDCMPSC_XMT_THRS,- : Clear “MT thrs cnter 
¢ 1 #OOCMPSC_THR SIZE,- 
104 TFSW_THRES(RS) 
FO § 1044 INSV #0, @BDCMPSC_RCV_THRS,- ; Clear RCV thrs cnter 
1045 #OOCMPSC_THR SIZE,- 
A 1 4g TFSW_THRES(RS) 
05 D 104 RSB 
O22E 1048 
022E 1049 


1 
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-SBTTL Error 


—E 1051 
E 1388 
E 1054 ;DDCMPSERROR 
—E 1055 ; This routine clears DOCMPSEVENT return address from the stack 
Ae 28 ; so that control will immediately return to the driver. This is 
E 1057 ; done when header or data errors are found in a message. It 
..F 28 ; is also called when the protocol finds that it has received | 
E 1059 ; a ENQ other then what it expected so as not to change the state 
; : $' 3; of the protocol. 
ay $¢ 3 INPUTS R5-R9 set up with error status to driver. 
E 1065 ; (SP) = — of CHANGE_STA 
E 1064 ; 4(SP) =R 
0 ; : 66 : 8(SP) = The return address to the driver 
E 1067; | 
E 1068 DDCMPSERROR: | 
F E 198 PUSHAB B*CHANGE_STA 3; Save the address expected 
1 1 1070 CMPL (SP)+, (SP) + : If NEQ then bugchec 
04 2 4 1071 BNEQ 10$ . 
52 BEDO O § 1976 POPL R2 : Clear the register from stack 
5 StH We RSB : Return to driver 
: UG_ CHECK NOBUFPCKT, FATAL 
023A 1075 10$ BUG_CHEC T 
023E 1076 
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-SBTTL Command error handling routines 
: IGNORE 


This routine is called when a request is made to the protocol, but the 
protocol is in the wrong state to complete the action. 


; INPUTS none 
; OUTPUTS Rg = Contains the status code to return to the driver 
: R7 = Contains the reason for the abort 
bDCMPSIGNORE: 
56 «(09 HS MOVZWL S“#DLKSC_ACTNOTCOM,R6 ; Set the abort status 
57 = 01 HS poy els. #DLKSM_BADSTATE,R7 ; Set the reason for the abort 
STARTING 


This routine is called when a request to transmit a message is made and 
the protocol has not finished its start up sequence. It fakes a queue 
full error and puts the transmit on the overflow queue. 


INPUTS P3 = Address of the GF block 
RS = Address of the TF block 


Dee So Se Oe Ge Oe Oe Ss Se Se Be Oe Se Se 


R8 = Address of data message 
OUTPUTS R3,R5 are preserved Z 
R6 = Contains the status code to driver 
R7 = Contains the reason code 
DCMPSSTARTING: 
C MOVZWL S“#DLKSC_RETINFO,R6 ; Return status 
C MOVZWL #DLKSM_QFULERR,R? ; Fake a queue full error | 
5 TSTL R8 ; If eql then no message 
3 BEQL 10$ 
} es XMTQS$B_BUFTYP(R8) ,S*#DYNSC_BUFIO ; If NEQ then not correct buf 
44 B85 68 4 INSQUE (R8),a@TFSQ_XMTOVF +4(R5) : Insert at the end of queue 
10$: RSB 
20$:  BUG_CHECK NOBUFPCKT FATAL 
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Command error handling routines “SEP-1984 00:11:52 (CDRIVER.SRCIJDDCMP.MAR; 1 (30) 
— 1123 
E 1 ¢ 3: BUG and REPORT 
f 11 § : This routine is caled when the state driven portion of the protocol is 
; i} 3 requested to do an action that is doesn’t know or isn't allowed to do. 
} 1 : : INPUTS REPORT = R7 contains the reason for the abort 
— 1131; OUTPUTS Rg = Return code to driver - Action not complete 
ef i § § R? = Reason that the action wasn't completed 
se 1134 bocMPS$BUG: 
--. : 1135 MOVZWL #DLKSM_BADACTION,R7 ; Set up reason for incomp act 
° 1 § BUG_CHECK NOBUFPCKT,FATAL 
8 e3 11 8 DDCMPSREPORT: 
09 3¢ 65 11 MOVZWL S*#DLKSC_ACTNOTCOM,R6 ; Set up reg with status for 
8 68 1140 3; return to driver 
05 68 1141 RSB 
0269 1142 
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03 57 $9 
009 5 
OC A 


0D AS 00010101 of 
17 AS 
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-SBTTL Set charateristics 


; DDCMPSSETCHAR = Set Charateristics 


; This routine sets up charateristics for the protocol. This should be 
: 1 type TO Mee once by the driver to set up default characteristics on 


; The routine works as follows. It is called by the driver only when the 
; protocol is in halt state. Which means at Unit 


init time or after the 
protocol has been put in HALT state for whatever reason. If the set 


; default bit is set then the characteristics byte is cleared and the 

; protocol is set up for DDCMP point to point full duplex mode. If it is 

; not clear then the protocol assumes that the user wishes to set some 

; parameters and those parameters are set. This routine must be called 

; at least once to set defaults for all settable DDCMP parameters. Defaults 
; for the paramters are determined by the driver using this protocol. 


Example defaults: 


$B_ADDR = 1 
$B_XADDR = 1 
$B_RADDR = 1 
$W_SELWAI = 3 seconds 
$B_MAXSEL = 2 tries 
$W_REPWAI = 5 seconds 
$B_MAXRTO = 4 tries 
$SB_MSGCNT = 4 per selection interval 
$B_STRTIM = 1 secon 
ABTIM = 1 second 


INPUTS ddress of the GF block 
Address of TF block 

Command from driver 

Fields to set 

Address of block gentateing parameters 
Address of a block containing the addresses the 
protocol needs from the driver to do the 
retransmission of messages properly. 


OUPUTS R3,R5 are preserved ; 
R6 = Contain return status to driver. 
R? = Normal return 
R8,R9 are destroyed 


DDBDDWADwD A044 4-4-4 
WDONOVW WRATH 
§ 
> Wu 


DCMPSSETCHAR: 
BBSC #OLKSV_SETDEF ,R7,2$ : If BS defaults to set 
BRW ; Else branch to set parameters 
CLRB TFSB_CHAR(RS) ; Set defaults of zero 


ASSUME TFSB_XADDR EQ TFS$B_ADDR+1 
ASSUME TFSBIRADDR EQ TFSB-XADDR+1 


MOVL #65793, TF$B_ADDR(RS) : Set all default addr to 1 
MOVB sopcnPéc REAL CLOCK, ~ 
TFSB_REPTIM(RS) 


3; to be the real time cloc 


- 
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Set the default for reply 1/0 
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; 
HH} a 94 i CLRB LFS cuRaTORRS} ; Clear reply timeout and sel't 
08 A Sh CLRB GFSB_CURSEL (RS) 3 zrooee only once per protocol 
Hy rtup 


: If R9 is set up then it will contain the address that the protocol needs 
3; to perform message retransmission properly. 


59 05 TSTL «= R9 
09 «1 BEQL «= 38 
54 AS 69 00 MOVL DLASA_XMT_INPR(R9) ,TFSA_XMT JNPR(RS) 
58 AS 604 AD =O MOVL § DLASA-POSTQ(R9) , TFSA_POSTQ(RS) 


3; Set up the NMA def's for counters 


: Global counters | 
3$: COUNT NMASC_CTLIN_LPE,- 
BITMAP=YES,= 


WIDTH=8,- 
LOC=GF$W_LSETYP(R3) | 
COUNT NMASC_CTLIN_RPE,- 
BITMAP=YES,= 
WIDTH=8,- 
LOC=GF $W_RSETYP(R3) 

j 


: Tributary counters 
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COUNT NMASC_CTCIR_DEO,- 
BITMAP=YES,= 


WIDTH=8,- 
LOC=TF$W_DEOTYP(RS) 


COUNT NMASC_CTCIR_DEI,- 
BITMAP=YES ,= 


WIDTH=8,~ 
LOC=TFS$W_DEITYP(RS) 
COUNT NMASC_CTCIR_LRT, = 
WIDTH=8,- 
LOC=TF$W_LRTOTYP(RS) 
COUNT NMASC_CTCIR_RRT,~ 
LOC=TFSW_RRTOTYP(RS) 


FUFUSISIETT FFT TT TD 
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BA COUNT NMASC_CTCIR_SLT,- 
MAP=YES,= 
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BA BITMAP=YES, 

BA vid Ae 

BA LOC=TFSW_STOTYP(RS) 
C1 COUNT NMASC_CTCIR_LBE,- 
¢1 Bi TMAP=YES,= 

C1 WIDTH=8,- 
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! 35 LOC=TFSW_LBETYP(RS) 
1 ° COUNT NMASC_CTCIR_RBE,- 
1261 BITMAP=YES,= 

1 $6 WIDTH=8,- 

63 LOC=TFSW_RBETYP(RS) 
1265 COUNT wane fICIR_ SIE. 

1 66 WIDTH=16,- 

| 6 LOC=TFSW_SELTYP(RS) 
1 $3 COUNT ATC CICIR DBS. 
1270 WIDTH=32,- 

! 4 LOC=TFSW_DMXTYP(RS) 
1 * COUNT NMASC _CTCIR_DBR, 
1274 WIDTH=32,- 

: ? LOC=TFSW_DMRTYP(RS) 
1 7 COUNT NMASC_CTCIR_BSN,~ 
1278 WIDTH=32,- 

: 4s LOC=TFSW_DBXTYP(RS) 
1 Hi COUNT “TTT a eee 

1 ¢ WIDTH=32,- 

; LOC=TFS$W_DBRTYP(RS) 
' $2 3 Set up the size for the counter blocks 
1 8S SUBW #TFSK_ERRSTRT ATF SK_ERREN 
: Ht SUBW #GFSK_ERRSRT , AGF $K_ERREND 
1290 ASSUME DLKSV_STATYP EQ 0 
1291 ASSUME OLKSV_POINT 

1 3 ASSUME DLKSV_DUPLEX EQ 2 
129 ASSUME DLKSV_LNTYP EQ 3 
1294 ASSUME OLKSV_MSGCNT EQ 4 
1295 ASSUME DOLKSV_SELTIM EQ 5 

1 1 ASSUME DLKSV_SELWAIT EQ 6 
129 ASSUME DLKSV“REPTIM EQ 7 

1 38 ASSUME DLKSV_REPWAIT EQ 8 
109 ASSUME DLKSV“STREAM EQ 9 

! 4 ASSUME DLK€V_BABBLE EQ 10 
1 § 5$: CLAL Rg 

1 BLBC R7,10$ 

4 PUSHAL 10$ 

1 

1 § BRB 15$ 

1 3 108: CMPB RD #0LK$V_BABBLE 

! BGTR 15% 

1 9 ASHL #-1,R7,R7 

} \¢ INCB 

131 BLBC R7,10$ 

1314 PUSHAL 10$ 
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TF 
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Pave 8, a 


Clear the counter field 

If BC then first bit not set 
Push this address to loo 
thru the case to test al 

bits that may be set 

Branch to CA 

Have all setable bits been 
set. If GTR then yes they 
Have branch to fall thru CASE 
Get next bit 


If BC bit not set 
Push return address 
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SEP-19 
Set charateristics -SEP-19 71 DRIVER.SRCJDDCMP.MAR; 1 
; Fall thru to the CASE 
cageee note that the — this routine sets up the protocol characteristics 


this CASE statement must be a CASE statement and can NOT be changes 
to a SDISPATCH. 


— Gete te 


5$: CASE RO,<- ; Test to see which bit is set 
SETSSTATYP,- ; jump to the routine to handle 
SETSPOINT,=- 3; that value 
SETSOUPLEX,- 
SETSLNTYP,=- 
SETSRSGCNT 
SETSSELTIM,- 
SETSSELWAIT,- 
SETSREPTIM,=- 
SETSREPWAIT,- 
>, LIMIT=#DLK$V_STATYP 
Oc AS 9S TSTB TFSB_CHAR(RS) 3; If NEQ then not FPC, branch 
06 «1 BNEQ 208 
01 9g MOVB S*#DDCMP$C_REALCLOCK,=- : Move in type of reply timeout 
17 AS TFS$B_REPTIACRS) 3 clock - real time for FPC 
56 (0 4 20$: MOVZWL S*#OCKSC_RETINFO.R6 ; Set normal return status 
ay ue 


3; Start of routines to branch to via the CASE on RO 


SETSSTATYP: 
B1SB2 
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0c AS «6(03—O88 a<- ; Set that this is a We teutery 
TFSM_STATYP!= 3 station and that it is multi- 
TFSM_POINT- ; point 
>, TFSB_CHAR(RS) 
68 90 MOVB DLK$ oTRIB (RG) -TESB_ADDAIAS) 3 Set the trib address 
OE A 68 90 MOVB DLKSB_TRIB(R8),TFSB_XADDR(RS) ; Set the trib address for XMTS 
0 68 90 5 MOVB DLKSB_TRIB(R8) , TFSB_RADDR(RS) : Set the trib address for RCVS 
03 90 035 MOVE  S*#DDCMPSC_NXTINTVL7- : Move in type of reply timer 
17 AS 5 TFSB_REPTIACRS) ; Next selection interval 
05 5 RSB 
5 
5 3 Assume if gotten here then the station is a control station 
SETSPOINT: 
0¢ 88 BISB2 #TFSM_POINT,- ; Set that the station is 
OC A TF$B_CHAR(RS) ; multipoint 
0¢ 90 D MOVB S*#DBCMPSC FOINTVL,- : Set the reply timer to be the 
17 A F TFSB_REPTIACRS) : end of the next selection 
61 ; interval 
05 2] RSB 
6 SETSDUPLEX: 
0 88 6 BISB2 #TFSM_DUPLEX,- ; Set that the Line is half 
OC AS 6 FSB CHAR(RSS ; duplex 
09 £0 $6 BBS #TESO_STATYP,- ; Branch if BS station is a 
04 OC A 6 TFSB_CHAR(RSS ,5$ > trib station 
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mes 7 REESE LORIVER. SREIDDCMP OMAR: 1 ’ (33) vo! 
S“#ODCMPSC_NXTINTVL,= ; Set reply timer to be the 

$B_REPTIA(RS) ; next selection interval 
#GFSM_CRC,GFSB_DRVCHR(R3) ; Set device does not do CRC checks 
DLKSB_MSGCNT(R8),=- ; Set no msg per selection 
TFSB_ASGCNT(RS) 
DLKSB_MAXSEL(R8) ,#1,GFS$B_MAXSEL(R3) ; Move in the # of times 
GFSB_MAXSEL(R3) ,4#5,GFSB_STRTSEL(R3) ; Move in the # of sels for star. 
3; the select will 1/0 field 


R2 

#TFSV_STATYP, TFSB_CHAR(RS) ,5$ 
#DDCMPSC_MILLI,R2 

R2 


DLKS$W_SELWAIT(R8) ,R2 
#ODCHPSC MILLI .R2,GFSW_SELWAI(R3 


3; If trib set number on 

3; interv before deselection 

3; Get the size to div by 

; Sub 1 from it 

>: Ensure time is at least 1 sec 
§ ; Set the timer in seconds 


SEOCHPSC GUARE 


DLKS$W_SELWAIT(R8) ,R2 
#DDCHPSC_QUA,R2,GFSW_SELWAI(R3) 


Get the size to div by 
Sub 1 from it 

Ensure time is at least 1 sec 
Set the timer in seconds 


DLKSB_MAXREP(R8) ,- ; Set max reply 1/0 
#1, TFSB_MAXRTO(RS) 


R2 
#DDCMPSC_MILLI,R2 ; Get the size to div by 
3 Sub 1 from it 
DLKSW_REPWAIT(RB) .R2 - Ensure time is at least 1 sec 
$; Set the timer in seconds 


#ODCMPSC_MILLI,Re.TFSY_REPUAL (RS 
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-SBTTL Initate start of protocol 
STARTINT = Initate start 


This routine initiates a start of the protocol. It expects that the char for 
the protocol have been set or default elsewhere. If an error is found in 

the header passed to the protocol then return immediately to the driver 

to report a header error. 


INPUT a = Address of the GF block 
R5 = Address of the TF block 
R& = Address of the message header if the start was 
nitated by a remote node 


OUTPUTS R3, RS and RB are preserved 

R6,R7 contain the return status for driver 
XMTQ is given an entry 

RTOQ is given an entry 
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DA -ENABL LSB 
DA DDCMPSSENDSTRT: 
56 98 DA MOVZWL S“#DLKSC_RETINFO,R6 ; Set up return to driver 
5 DD CLRL R7 3; Clear all set bits 
17 of BRE 12$ 3; Send the start 
E1 DDCMPSSTARTINT: 
56 608 €1 MOVZWL S“#DLKSC_RETINFO,R6 ; Set up return to driver 
57 E4 CLRL R7 3; Clear all set bits 
38 £6 R8 : If the field is zero than 
9 E 10$ : it was a user init start 
0434 EA BSBW DOCMPSCHK_HDR :; Else branch to check the hdr 
57 ED TSTL R?7 3; If not clear than an error 
45 EF BNEQ 208 : in the header. 
Fi 3: Continue if header ok 
46 Fi 108: BSBB DDCMPSRESET_VAR ; Clear msg exch variables and 
OA OC AS 00 F3 BBS #TFSV_STATYP TFSB_CHAR(R5),13$ ; If BS don’t send STRT 
54 06 FB 12$:  MOVZBL #DDCMPSC_STRT,R : Set up a STRT to be XMT'd 
0588 FB BSBld DGCRPSQUEUE_XAT : Place on queue to XMT 
5 F TSTB kK 3; If the reg has any bits 
0 3 set than there was error 
34 0 BNEQ 20$ ; Branch to report itto driver 
ODBD 13$: BSBW DOCMPSRESET_GCTRS ; Reset ptobet counters 
ODCA BSBW DDCMPSRESET TCTRS 3; Reset tributary counters 
57 8s 8 BISW2 #OLKSM_REINT,R7 3 Set up to inform the driver 
CMPB = S*#DDCAPSC_SfA_IST.- ; Branch NEQ state was not IST 
D nene FSB_STATETRS) 3 no need to incr threshold 


Increment the threshold cntrs 
15$:  MOVAL TFSL_T Get the TQE address 
MOVQ #DDCAPSC_RUNTOE,TOESO DELTA(R2) Set the delta for active pro 
BBC ate SV Starve $8 CHAR(RS),18 If trib mode set short delta 
a nova #DDCMPSC_TRIBTOE,TOESO_DELTA(R2)'; Set the delta for trib mode 


20$: DOCMPSERROR 
LSB 


5 014C C5 

20 A2 00000000 004(4840 8F 
oot oc 

20 A2 00000: 00262 F 


_ 
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439 14 
4 14 . SBT Reset yer tables 
r 1? ? sRESET_ VAR = y m-. variables 
4 2 1485 : This routine is called on start up or reinti of the protocol to zero 
r | 1? § 3; the message exchange variables. 
439 14 g : INPUTS R3 = Address of the GF block 
r | 1 3 3 = Address of the TF block 
re 9 133) : OUTPUTS R3 and RS are preserved. 
4 3 1298 SDCMPSRESET_VAR: 
439 1494 ASSOME TFSB_N EQ TFSB_R+1 
439 1495 ASSUME TFSB_A EQ TFSB_N+1 
439 1496 ASSUME TFS$B-T EQ TFSB-A+1 
439 149 ASSUME TFSB-X EQ TFSB-T+1 
4 } 1498 ASSUME TFSB-SELTIM EQ°TF$B_X+1 
11 AS 04 0439 1500 CLRL TFSB_RC(RS) ; Clear above fields 
15 AS B64 043C 1501 CLRW TFSB_X(R5S) 
0189 C5 94 43F 15 § CLRB TFSB_SFLAGS(RS) 
0188 C5 443 15 CLRB TFSB_NAKRSN(R5) 
1D AS reed 1288 CLRB TFSB_MMCTR(RS) ; Clear then nmb of msgs sent 
20 AS 0 AS 44A 1306 MOVAL TF$Q_CTLQ(RS),TFSQ_CTLQ(R5) : Init control queue 
24 AS 0 AS cH} 120% MOVAL TFSQ_CTLQ(RS),TFSQ_CTLO+4(R5) : Init control queue 
50 30 83 $25 130) + Fin ee ae 
50 38 85 45A 131) REMQUE Pir O0 STSRtRS) 0 
50 28 82 re 1318 REROUE 9]090_CHPOCRS) .RO 
50 40 Hi ree} 131? + pa ane sa. XMTOVF (R5),RO 
C 1517 108: BUG_CHECK NOBUFPCKT,FATAL 
1318 Set up the queue block with ENG type and subtype 
10 AS) = 7F sO&F 1520 208: MOVB #ODCMPSC_SIZEOFQ, TFSB_XQCNT(RS) ; Set the max no of msg 
1521 3; allowed on the queue 
51 5C AS 15 § MOVAL TFS$L_QACK(RS),R : Get ACK queue block 
OC Al 9 15 CLRL XMTOSL_IRP(R RIS ; Set no IRP address 
1F Al C 1524 CLRB antese FLAG(R1) : Clear flags 
1F Al o F 1525 Vv XMTQSA £ XMTQ$B_FLAG(R1) : Set cntrl “flag 
1A Al ; 1 § MOVZBW S“#DDCMPSC_HEADER, XMTQSW_MSGSIZE(R1) ; Set message size 
51 24 A1 1 VAL MTQ$B tag ll ),R1 : Get header field 
61 3 1 8 MOVB S“#DDCAPSC MF OSB MSGID(R1) § ENQ into msgid 
01 a1 01 MOVZBW #DDCMPSC SACK MEDSU TYPE FLG(R1) ; Insert ACK type 
1 1 MOVA TFSL_QNAK(RS),R1 3; Get NAK queue block 
. moe G 1 : CURL XATOSL_ IR PAR Ris : Set no IRP address 
F Al 49A 1 CLRB XAT OSS : Clear flags 
1F Al 4 49D 1534 MOVB 1 EONTROL XMTQ$B_FLAG(R1) : Set Ming flag 
i Al. Og ral ' 5 aie SEADDCRP mse $C HEADER. a XMTOSW -MSGSIZE(R1) : zet pessoge ats 
61 05 3 1 $ MOVB S*#ODCAPS$C_ENQ, Rar b$e _MSGID(R1) : FTUL ENG into. msgid 


12 
DOCMP = Software DDCMP 16-SEP-1984 75 
v04-000 Reset aot Ba po. -SEP-1984 4 88; 30: $3 
01 a1 02 98 sa 38 MOVZBW #DDCMPSC_NAK ,MFDSW_TYPFLG(R1) 
51 00BC CS DE 0480 1 40 MOVAL TFSL_QREP(RS),R1 
C Al ps 485 154 CLRL «- XMTOSL_IRPCRIS 
1F Al 6 0488 1 4¢ CLRB XMTQSB-FLAG(R1) 
1F Al 04 90 0488 154 OVB #XMTQSA_CONTROL xMTasB FLAG(R1) 
1A Al 6 98 O4BF 1544 MOVZBW mitts C_HEADER, XMTOSW_MSGSIZE(R1) 
51 24 A pF acs 1545 MOVAL XMTQ$B_MSGADR(R1),R1 
61 03 90 04C7 1 46 VB.  S*#DDCAPSC_ENQ,MFO$B_MSGID(R1) 
01 A1 03 98 aca 4 MOVZBW PODCAPSC REP MF DSW_TYPFLG(R1) 
51 oogC C5 DE ace 1549 MOVAL TFSL QSTRICRS), R1 
€ Al 4D3 1550 CLRL. = XMTQSL 
1F Al 3 406 1551 CLRB HmTOSE-? rece ) 
1F Al 04 4D 133 XMTQSA CONTROL XMTOSB FLAG(R1) 
1A Al 06 3 40D 155 MOVZBW S“#DDCMPSC_HEADER, XMTOSW_MSGSIZE(R1) 
51 26 Al DE 0461 1554 MOVAL XMTQ$B_MSGADR 
61 05 90 0465 1555 VB  S*#ODCAPSC_ENQ, ia MSGID(R1) 
01 A1 06 H | 4E8 1328 ery cee #DDCMPSC_STRT AF DSW_ TYPFLG(R1) 
01 a1 C000 BF A 4EC 155 1SwW #<MFOSM_GSYNC!- 
4F 1358 MFDSM_ SELECTS, MF DSW_TYPFLG(R1) 
51 0110 CS DE O4F2 1560 MOVAL TFSL QSTACK(RS), R1 
OC Al 4 rer 1561 CLRL XMTQSL_IRP(R 
1F Al 94 OFA 136¢ CLRB XRTOSB™ FLAG( thy) 
1F Al 6046 «690 «—04FD 136 MOVB #XmMTQSA CONTROL ANTOSS FLAG(R1) 
iA Al 06 98 301 1564 MOVZBW S*“#DDCMPSC_HEADER, XMTQSW_MSGSIZE(R1) 
51 26 a1 OD 505 1565 MOVAL XMTQ$B_MSGAD 
61 05 90 0509 1366 MOVB S*#DDCAPSC_ENO,MFOSB_MSGID(R1) 
01 Al O07 98 O50C 156 sth #DOCMPSC_STA ACK, oMFDSW_ TYPFLG(R1) 
01 al C000 BF AaB 0510 1568 BISW2 #<MFDSM GSYN 
516 1569 MFDSM_SELECT>, MF DSW. TYPFLG(R1) 
05 0516 1570 RSB 
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Se Se Ge Se Ge Ge Sete Ge Ge 


_Insert NAK type 


Get REP queue block 
Set no IRP address 


r field 
Fill ENd into msgid 
AME REP type 


Get STRT queue block 
Set no IRP address 
Clear flags 
Set cntrl olay 

ze 


ill ENQ into msgid 


: breee’ STRT type 
; Set to always resync 
; and to send select 


Get STACK queue block 
Set no IRP address 
Clear flags 
Set cntrl ee 
Set message size 
ti header field 

ill ENQ into msgid 
Snsbet STACK type 
Set to always resync 
and to send select 


a 
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£600 Start acknowledge g-SEp =| 38 88; 39: $5 DRIVER.S REID DOCMP.MAR; 1 . By) 
| i a -SBTTL Start acknowledge 
i : oP 3 sSTARTACK = Start acknowledge 
17 1575 ; This routine ectenycegee starts of the protocol. If an error is found in 
17 4 6 ; the header passed to the protocol then return immediately to the driver 
317 ! 4 3; to report a header error. 
i. 8 : INPUTS: 3 = Address of the ef oo 
517 1580; R5 = Address of TF blo 
517 1581; RG = Command code fren. aetine 
er a § 3 = Code/status associated with return states 
217 ! ? : R8 = Address of the ENQ message header 
517 1585 : OUTPUTS: R3, af and R8 are preserved 
3) § 3 R6,R7 are set up with the return status for driver 
bei? 13 3 nate. is given an entry 
217 13 8 3 $ RTOQ is given an entry 
0317 1390 BDCMPSSTARTACK: 
56 98 3¢ 60517 «1591 MOVZWL S“#DLKSC_RETINFO,R6 ; Set up return to driver 
5 4 OSIA 1336 CLRL ; Clear all set bits 
030 8 a3i¢ 159 BSBW DOCMPSCHK_HDR 3; Chk the ate hdr for errors 
35 #4 Ad 1338 cert ats ; Branch on NEQ to report err 
“ 5 ; 1336 3; Else continue 
54 07 9A 5 159 MOVZBL #DDCMPSC_STACK,R4 ; Set up a STACK to be XMT'd 
0460 30 5 é 1598 BSBW  DDCMPSQUEUE_xmf : Place on the XMT queue 
$e 73 ; : 13% oe ots 3; Branch on NEQ to report error 
a3 91 052D 1601 CMPB S“#DDCMPSC_STA_AST,= ; Branch NEQ the state is not 
6 ; 7 1906 aan £38. STATETR3) 3: AST do not incr the threshold 
oc80 x6 03 : 180% BSBW J pag hey XMT_THRS : Ince ‘- threshold cntrs 
oc aS 9 5 1605 5$: TSTB TFS$B_CHAR(RS) : If EQL then FPC station don't 
OA 13 0538 160 BEQL 3; turn the Link 
€1 53A 1609 BBC #MFOSV_S SELECT - 3; If BC then don't turn the 
05 01 A8 53¢ 1908 MF DSW TYPFLGCR ~, lis 3 Link 
57 4000 8F ag 53F 160 BISW #OLKSA_TRNLK,R 
0 ane 1919 10$: RSB 
FCE6 = 31 545 1018 208: BRW DOCMPSERROR 
B368 161 
54 1614 
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if iets 
48 1 18 $ 
rt 1 19 ; 
2 i ° : 
548 16 § : 
548 16235; 
548 1624; 
548 1625 ; 
e? 19 § 3 
2 8 ; 
548 1629 ; 
548 1630 6 
6 FRE Bete leas 
58 C be78 16 g 
O9F 1 30 O5S4F 1634 
52. 014C CS DE 0552 1635 
00000000 004(4B840 BF 7D 055 16 
05 0563 193 
0564 1638 


»SBTTL 


16-SEP-1984 00:50:47 
736213 4 $8: :52 


Start maintenance mode 


DDCMPSSTARTMNT = Start maintenance mode 


The only purpose of this routine is to provide a branch in the state 
tables and to set the status registers for return to the driver. The 
ulitimate goal is only to change the state of the protocol. 


INPUTS 


none 


OUTPUTS 3. RS and Re are preserved 


DCMPSSTARTMNT: 
MOVZWL 


R6, R7 and RY are set to normal 


S*#DLKSC_RETINFO,R6 
R7 


RB 

DDCMPSMAINT_HALT 

TFSL_TOE (RST 
#DDCAPSC_RUNTOE , TOESQ_DELTA(R2) 
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return 


Set up return to driver 
Clear all set bits 

driver 

Be sure to clean up the q's 
Get the TQE address 

Set the delta for active pro 


| 


<o 
oo 


o 


Sy3cssoS 
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64 1640 -SBTTL Receive message 
#1 193) ; DDCMPSRCVMSG - Receive message 


o 
- 
a 
o 
7 


This routine processes received eepseges. It first checks the headers 
to ensure that there is no CRC or ADDR errors. Then it goes decides 

which sype of message it is. The first thing it must do for any message 

is to check the header fields and make sure that things are kosher. 

For instance if it receives a data message with the NUMB field 

less than the Last message RCV'd (R) then it should ignore the message. 
And not allocate a buffer (IRP) for it. For data messages if the message 
header is ok then a buffer is allocated for the message. For all messages 
the message exchange variables are seceeee, Only after it has determined 
that the headers are ok will it check to see if the select has been set. 
If it has then the selection timer is stopped and the protocol issues 

a command to the driver that it must stop receiving messages and start 
sending them. For H or FMT before turning the Link over it must retransmit 
all messages on the RTOQ. 


The modulo arithmetic in DDCMP is done in the following manner. 
Assume that the number of outstanding transmits will never exceed 127. This 
allows us to use 127 as our modulus, that is we_know that two message ‘ 
exchange fields will always be between 0 and 127 any from each other. This 
allows us to use the following formula for modulo arithmetic: 
GIVEN: A; B; X; MOD = 127 

--> X 
27 Then B<A 
27 Then B>A 

Then B=A 


B-A 
If xX 
If xX 
If x 


eh aA 


INPUTS Address of the GF block 
Address of the TF block 


Address of RCV message 


OUTPUTS 2 
and R7 are set up for return to driver 
is scratched 


1 
1 
0 
R 
R 
R 
R 
R 
R9 is size of the data message received 


3 
5 
8 
; and R5 are preserved 
8 
9 


oe Be Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge te Ge Se Se Se Ge Se Se Se Ge Ges 


oa PARED XAEXAA AA AAAA AAA AAA AAA AA AAA AAA A AAA AO 


on AAAS 


SN NIOAOAAAAO 


DCMPSRCVMSG: 
MOVZWL 9 S“#DLKSC_RETINFO,R6 
CLRL R7 


oO 


Set up return to driver 
; Clear all set bits 


ow 
rs 
- 
MEW 9 OO NOAUE WN (OOD NAME WN $0 ONO UE WS OVOONOUS 


1G C969 69 69 09 SI NIN SN NSS DOA A AAA AAO MMIII ££ 


ASSUME DLKS$V_CRC EQ 16 


BSB DDCMPSCHK_HDR Check CRC and ADDR : 
TSTB R? : On error return to driver 
BEQL ¢ 


408 
23: BBC #DLK$V_CRC,R7,5$ : If BC no CRC error 
#DDCHPSC_NAKT, TFSB_NAKRSN(RS) : If NEQ then not hdr CRC else 
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wo — OM OW 
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Quik Wwr—0O0e 

oOo 

z 
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DO not process the message 
but start up the transmitter 
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1697 
03 «0 FO 2 : 1998 5$: INSV eeeeee tc ma} THRS,- ; Zero the RCV threshold 
0 5 : 199 ; DOCMPSC_THR SIZE,- > counter 
01C¢5 f 5 1700 Tsu T NRES CRS) 
2 D4 QO5S8A 1701 CLRL R2 3; If NAK rev'd because REP 
58C 17 ¢ 3 was sent this will be set 
68 81 4 4 286 Vv 7 coer #DDCMPSC_SOH,MFDSB_MSGID(R8) ; Branch if it is an SOH 
68 93 33 0392 1783 care #ODCMPSC_ENQ,MFDSB_MSGID(R8) ; Branch if it is an ENQ 
51 01 A8 9A B23f 1707 MOVZBL MFDSW_TYPFLG(R8),R1 ; Get the type of cntrl msg 
§29B 1508 eeterares R1,TYPE=B,- 
$238 1710 ex action 
598 1711 <DDCMPSC’ ACK $0$>- 
0598 ar; <DDCMPS$C_ NAK 40$>- 
begs ay <DOCHPSC_ REP 50$>- 
51 oF 3} Osk3 ar CnPe  pppescties ater nt ; Branch if a STACK msg 
0143 = 331 Baan 1712 10$: BRwW 130$ 3; Return to driver 
Bane ah ; SOH message only 
51 01 11 AS 81 OSAD 1355 208: ADDB3 ~=TFS$B_R(RS),41,R1 3; Branch on EQL because the 
51 04 AB 91 0582 iss CMPB MFOSB _NUMB (RB), R1 : incoming message is the next 
03 13 0586 7s BEQL 25$ 3 message expected 
0138 31 0588 1724 BRW 140$ ; Else ignore the message 
11 AS 96 0588 1753 25$: INCB TFSB_R(RS) ; Incr nmbr of RCV'd data an 
0198 CS) 6 p205 1726 INCL TFSL_DMSGR(RS) : Incr nmbr of data msgs RCV"d 
5 01 AB 3C O5C2 1727 MOVZWL MFDSQ_CNTFLG(R8) RO 3; Get the count 
59 C000 8F AA 8366 1798 BICW pcre psn SELECT. ; Clear if flags are set 
018C C5 59 co bate 1730 ADDL2 = R9,TFSL Tae Rs) 3; the data msg 
02 88 0500 1731 BISB2 #TF$M SACK,- : Set to send an ACK 
0189 ¢ 0502 17 ‘ TI$B SFLAGS (RS) 
03; 91 5D 173 CMPB S*#DBCMPSC_STA _AST,= : Branch if not AST 
SS ae HERE TAS wea Sue STATES 
03 A8& 9 3 O3pE 1736 28s er Flea iat ; Branch if 0 (hdr ok) 
010D = (31 3E 1738 "  BRW 130 : Report it 
2e 1749 3 SOH message or an ACK received 
43 Hoe ASSUME DDCMPSC_MODULO EQ 127 
2f te ; Check that A < RESP <= N 
50 03 as 13 AS 83 5E 1766 30$: SUBB3 TFSB_A(R5) ,MFDSB_RESP(R8) ,RO ; Branch If RESP <= 
oe 5E9 174 BLEQ 5$ : no fields to “update 
50 03 as 12 AS 83 5€8 1763 SUBB3 HA _NCR5) .MFDSB_RESP(R8) ,RO ; Branch if RESP 
SF 14 OSF1 174 GTR ; To report a all BF with hdr 
00 8 FO 5F3 1750 INSV r itt XMT THRS, - ; Zero the XMT threshold 
sacs 03 2Fg 1731 #0pc CAPS SIZE. 3 counter 
13 a5 OF AB FA 1588 MOVB MFDSE THRE CRS) TFSB_A(RS) ; Update msg exchange fields 
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3 Check that 


39$: 


; NAK messages 


ie 16-SEP-1984 00: 
met 7 8833 
T <= A 
TESB_ACRS) ,TFSB_T(R5),RO 
TF$B_ACRS) ,#1,- 
TF 
DD 


CMPSREM_RTOQ 
? DCMPSC_SOH MFDSB_MSGID (RB) 


#DLKSM_RCVACK,R7 
43$ 


#1, TFSB_T(RS) 


#TFSM_SACK,- 
TF$B_SFLAGS(RS) 
100$ 


3 Check the condition A <= RESP <= N 


40$: 


; REP message 
50$: CMPB 
BNEQ 
B1S82 
BICB2 
INCB 


BRB 
MOVB 


B1SB2 
B1CB2 


55$: 


TL gO ACES) AURORE AE SPAS? LAS 
[ESS RS) AUSSE_AESPIRS? Ae 


#0, #00CMPSC_XMT_THRS,=- 
#DDCMPSC_THR SIZE,- 
TFSW_THRES(R5) 

MFOSE MEY, AS), FSR_AERS) 
TFSB_ACRS) .#1,- 

DCMPSREM RTOQ 
DCMPSLOGNAK 
9 $ 


T 
D 
D 
100 

130$ 


B_R(RS) ,MFDSB_NUMB(R8) 


SNAK, = 
B_SFLAGS(RS) 
B-RRTO(RS) 


FS 
5$ 
TFSM_SACK,- 
38 SFLAGS(RS) 
F$ 

F$ 


00s 
CMPS$C_NAK3,- 
NAKRSN(RS) 
SFLAGS(RS) 
K,- 
_SFLAGS(RS) 


T 
5 
& 
T 
# 
T 
T 
1 
’ 
T 
£ 
T 
® 
T 
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F 
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Branch if T>A 

If GTR no field to update 
Update T 

Complete any messages ACK'd 
If this is an SOH 

RCV message was ok 


T must be equal to 71 at 
eres: start up 
et to send an ACK 


end of start up 


Branch RESP < A 
report a problem 
Branch if RESP > N 


report the problem 
Zero the XMT threshold 
counter 


Update message fields 


Comp any ACK'd XMTs 
Record why the NAK was RCV'd 
Check select flags 


Ignore if R # NUMB 

An ACK needs be sent 
Clear send NAK 

Ince the nmbr of remote 
reply timeouts 

Check select flags 

Set NAK reason 

An NAK needs be sent 


Clear send ACK 


[ 


A race 43 
= Software DDCMP 16-SEP-1984 150247 AX/VMS Macro v04-00 : age | 
/ ¥O5~000 Receive message eet 88:39:83 LORIVER. SREIDDCMP MAR: 1 (40) 
: inbound 
51 OAF 6 1811 MOVAW TF$B_DEI(RS),R1 3; Incr data error 
RT GER URINE Stren fet mses 6 Oe pe 
6 1814 TFSW DETBCCRSS z in repsonse to REP RCV'd 
“ag ; 6 1815 BSBW DOCMPSINCR_RCV_THRS : Incr the rcv threshold cnter 
oc AS 3 688 1 18 100$:  TSTB TPB. CMARCRD) = : If FPC ignore select flags 
ee ei 4 : 18 Bete ne Vv SELECTS 0s : Branch if BC else turn Link 
ae 3 i 6 if BBSS ATERVEOWNSELT © 1 : prenen OS becouse there 
695 1821: TF$B_SELTIM(R5) ; is an err 
MC(R5) ; Set that we own the select 
ae T sf $9 : : att siESR OunseL TFB, SELT1 : ; Reset the select timeout ctr 
- 91 069C 1824 CMPB ADDCAPSC NXTINTVL,=- 3; Branch NEQ because not the 
17 69 i 5 {ER REPTIACRS) 3; right time to reply 1/0 
x : ve Sante ; # of intvl's to deslct'n 
05 A303 3 26 x3 13 ? ad - Sameemamentenestnchan.secochuwtew sy a. ie ces sents 
35 3 ray) 1829 BNEQ 110$ 3; because a REP was sent 
o tf 6AB 18 0 BBC #TFSV TER os) 1108 : If BC then no msgs to T/0 
dined 88 GeAp 1832 BISB2 He Re, : 3; Else set REP ie to send a 
3 68 1838 TF$B_SFLAGS(RS) ; reply to msg number 
bier £2 E bes 1834 MOVAW TFSB-LRTO(RS),R1 : Ince the local reply timeout 
" ag 3 0 068A 1835 BSBW DDCRPSINCR COUNTER 3; counter 
one 0 068D 1335 BSBW DDCAPSINCR XMT  THRS : ince the WH varesheld ener 
- iS ” Ost 1836 hae clieeaetnane : a RTO has pose ane on one msg 
‘a : hont ecause the max 
in Aa ms dec 1826 sighe TESBAANRTOCRSD : RTO has not been reached 
8 BS oct 1803 ots ies ; Report to driver a peristant 
af A oe bee 1848 Brae. TPSB-CORRTOCRSS : Reset the cur num of RTO's 
1 11 Q6D0 1844 BES a 
57 4000 $F A8 Bee 1845 1108: sie ov con TRNLK ,R7 pe sver Syst tnew ve tere Hs 
a3 ate 1849 TF$B_CHAR(RS) ,120$ ; running for TRIB stations 
On OF OAs bebe 1848 BSBW DOCMPSSTOP_SEL_TIMER 3; Stop selection timer 
FS OepE 1849 INSV #0,#0D0CMPSC_SEC_THRS,- ; Clear the selection threshold 
ae 03 a Osee 1850 #OSCMPSC. THR, SIZE, ~ 3 counter 
01 th 67 91 4 : 7 120$:  CMPB SSRDDCHPSC. STACK ,MFDSW_ TYPFLG(R8) ; Branch if a STACK msg 
3 i ere i 3 erat a 3 peoar to Restle Wi ats oe 
: 3 e sen 
4 11 i : 36 125$: BRB DDOCMPSXMTMSG_ALT peed we 9 
a Bt : l ith msg RCV'd 
130$: BISW2 #OLKSM_HDRERR,R7 3; Fatal problem w 9 
” ress 8 ers 33 1208: BRW DOCMPSERROR 3; Return to driver 
. handle XMT 
ae 4 1ey) Poems gLet ae TIM(RS) isis sR Be then we don't own 
- i Ag 8} i is i 8 BT SB PTESATSELEET TFS SEC TINCRSS . 3; select Sipe 2008 Seiest 
0185 1 701 ; rt 155$: BRW DDCMPSQEMPTY_ALT ; Force an to be 
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AX/VMS Macro V04-00 
DRIVER.SRCJDDCMP.MAR; 1 


-SBTTL Transmit message 
DDCMPSXMTMSG = Transmit a message 
DDCMPSXMTMSG_ALT 


This routine performs the transmit state table of DOCMP. It sets up 
headers, sends NAK's, REP’s and ACK's when necessary (when those 

flags are set). It is called to retransmit data messages. Takes care of 
the XMT message exchange variables (X,T, & N). Sending DLE msgs is 
handled elsewhere. 


This routine starts out checking the SNAK and SREP flags. If either of these 
are set then an NAK or REP must be sent. If these are clear it checks 

to see if any messages need be retransmitted. It retransmits all messages 
required for retransmit before it sends any new data. New data is queued to 
the overflow queue first. This means that if any messages are outstanding 
the data will not get sent until that condition is resolved. If none of 
these conditions are true the messages are taken from the front of the 
XMTOVF queue and given to the XMTQ until it is full. ACKs are bi poybacked 
on other messages except REPs when possible else are sent when the XMTer 

has no other work. 
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INPUTS R3 = Address of the GF block 
RS = Address of the TF block 
R8 = Address of data for SOH message 
OUTPUTS R3, RS and RB are preserved 
R6 and R7 contain return information for driver 
Messages to be sent are placed on the XMTQ and RTOQ 
-ENABL LSB 
DDCMPSXMTMSG: 
MOVZWL S“#DLKSC_RETINFO,R6 ; Set up return to driver 
CLRL R7 : Clear all set bits 
TSTL R8 3; If Eql then no data to XMT 
BEQL DOCMPSXMTMSG ALT 
Lay, gavesu_ASESIZE (RS) : If NEQ then legal size 
Brew DDCMPSXMTERR 
5$: INSQUE (RB), @TFSQ_XMTOVF+4(R5) ; Assume aes can't be sent 
ence XMTQ$B_BUFTYP(R8) ,S“#DYNSC_BUF 10 ; If EQL then correct buf 
BISW2 #DLKSM_XMTACK,R7 :; Msg to XMT has been queue'd 
DDCMPSXMTMSG_ ALT: ; When coming from RCVMSG 
PuSHE R9 : Must save size from RCVMSG 
8$: BBC @TFSV_SNAK,=- : If not BC send NAK 
TF$B_SFLAGS(RS) ,10$ 
MOVZBL #O0DCAPSC_NAK,R4 ; Set up that it is a NAK to Q 
BSBW DDCRPSQUEUE_XMT ; Q@ the NAK, hdr is also setup 
EY ars : Branch on NEQ to report error 


BN 

BICB2 &#&<- 
TFSM_SNAK!= 

TFSM"SACK= 

>, TFSB_SFLAGS(RS) 

#tF$v_SREP,- 


Clear send NAK flag 
Clear send ACK flag 


If not BC send REP 


19 Nea 5 
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16-SEP-1984 00:50:47 VAX/VMS Macro v04-00 Page 45 
-SEP-1984 833 :52 CDRIVER.SRCIDOCMP.MAR; 1 ° (42) 
TFSB_SFLAGS(R5S) , 208 
MOVZBL #ODCAPSC_REP,R4 3; Set up that it is a REP to Q 
BSBW DOCRPSQUEUE _xAT ; Q@ the REP, hdr is also setup 
bce ars 3; Branch on NEQ to report error 
BICB2 #TFSM_SREP,- ; Clear send REP flag (REP has 
TF$B_SFLAGS(RS) : been sent 
128: BRW 60$ ; If a reply is sent don't XMT 
3; more messages 
14$:  BUG_CHECK NOBUFPCKT FATAL 
15$: BRwW 70$ ; Return in error 
208: MOVB TFSB_N(R5S),R1 ; Any messages to rexMT 
SUBB3 «R11, TF$B_T(R5) RO ; Branch N <= T 
BGTR 25 3; No msgs to retransmit 
BSBW Be APORESUELE 011 : If LEQ then req MSG(T) 
once Res 3: If NEQ then prst error found 


; The following check is not necessary in full duplex operation. 


258: TSTB TFS$B_CHAR(RS) : If FPC then ignore the check 
BEQL 308 


The following code is here to ensure that we don't queue a message on the 
XMTQ until we own the select etee This is done so that we can ensure 

that the latest RESP data is send out in the next selection interval. It 
was added in to cure the problem of a high number of Remote reply timeouts 
on the DMF32 when running in half duplex and trib modes. 


BBC #TFSV_OWNSELT,TFSB_SELTIM(RS) ,12$ 
; Now T = N + 1 and SREP and SNAK flags are clear, send SOH messages 
30$: REMQUE a@TFS$Q_XMTOVF (RS) RB ; Get the next message to XMT 
BVS 12$ 3; If VS then queue empty 
BEQL 33$ :; If NEQ then more to come 
azne te camahaaaae :; If this is not a FPC sta 
INCB TFSB_MMCTR(RS) :; Incr the max msg counter 
CMPB TFSB_MSGCNT(RS5),TFSB_MMCTR(RS) ; If LSS then max amount of 
GTR 34$ ; msg to xmt in an interval 
338: BISB2 #TFSM_SELECT,- ; Set to send a select flag 
TFSB_SELTIM(RS) 
CLRB TFSB_MMCTR(RS) 
34$: PUSHL R10 ; Save a register 
MOVB TFSB_SELTIM(RS) RIC ; Pick up select flag 
cHPB XNTOSB_BUF TYP (RB) ,S*#DYNSC_BUF 10 : If EQL then correct buf 
35$: SUBW3 «= #MFDSK_LENGTH,- : Set size of data message 
XMTQSW-MSGSIZE (RB) RO 
CLRL R1 ; Clear the reg of old addr 
MOVZBL #DDCMPSC_SOH,R4 ; SOH header to setup 
BSBW DOCMPSQUEUE_XMT ; Queue the msg also hdr setuP 
BBS #OLKSV QFULERR,R7,50$ ; Message not on XMT 
INCB TFSB_NTRS) ; Increment the highest XMT'd 
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DDCMP - Software DDCMP 16-SEP-1984 :50:47 VAX/VMS Macro Vv04-00 Page 
v04-000 Transmit message aad REE DRIVER. SRCIDDCMP.MAR; 1 . 
12 AS 81 078 ADDB3 ~=TFSB_N(RS),- 3 Set next to XMT 
14,05 01 te 19 : #1,TF$8 TRS) 
C a3 95 078B 19 TSTB = TF $B_CHAR(R5) : If this is not a FPC sta 
4 1 re 1? ¢ BEQL 50$ 
3F SA 8 1 O7cO 19 § BBC #TFSV SELECT 810.508 ; BR if did not send select fig 
1 704 «(19 CMPB #0DCMPS$C_EGINTVL,- ; Branch NEQ the station is 
17 A rte 1988 TFSB_REPTIM(RS) ; Multipoint control station 
33 1 7C8 1989 BNEQ 50$ 3 reply T/O must be handled 
g E 7CA 1990 BBC #TFSV_TIMER,=- : If BC then timer not running 
34 16 A 7¢C (1991 TFSB. SELTIM(RS) ,50$ ; no need to send a REP 
04 88 O7CF 1236 BISB2 #TFSA_SREP,- : Else must send a REP before 
0189 C3 701 199 TFSB_SFLAGS(RS5) i the msg with the select flag 
-.6©)~6CoUED CC 3 704 1994 MOVAW TFS$B Mb gt ha. ; Incr the local reply timeou 
O8FA 7D09 «1995 SBW DOCMPSINCR_COUNTER 3 error counter 
09c3 0 O7DC Hb 4 BSBW DDCMPSINCR_XMT_THRS : Incr the XMT threshold cntr 
18 AS 96 O7DF 199 INCB TF$B_CURRTO(RSY 3 Incr the number of times that 
7E2 1998 ; a RTO has been snt on the msg 
18 AS) 91 OQ7E2 1999 CMPB TFSB_CURRTO(RS) ,- ; Branch on LSS because the max 
1A AS O7E 000 TFSB_MAXRTO(RS) ; RTO has not been reached 
0B 19 O7E7 2001 BLSS 40$ 
18 AS) 94 O7E9 Oe CLRB TFS$B_CURRTO(RS) ; Reset the cur num of RTO's 
57 02 AB O7EC 200 BISW2 #DLKSM_PRSTERR,R7 ; Report to driver a peristant 
5A 8EDO 143 004 OPL R10 : Restore R10 
1 11 7F2 005 BRB 70$ 
54 0 9A O7F4 44 40S: MOVZBL #DDCMPSC_REP,R4 ; Set up that it is a REP to Q 
018F 30 gree 00 BSBW DDCMPSQUEUE_XMT 3 Q the REP, hdr is also setup 
57 95 O7FA 2008 TSTB R7 3; Branch on NEQ to report error 
05 12 gene 009 NEQ 50$ 
04 BA O7F bis BICB2 #TFSM_SREP,- ; Clear send REP flag (REP has 
0189 C5 080 11 TF$B_SFLAGS(RS) : been sent 
5A 8EDO et oig 208: POPL R10 : Restore R10 
59 BED? $ 13 60$: POPL R9 
0 4} 14 RSB 
80A 15 
59 B8EDO O80A Big 70$: POPL R9 
FAIE 31 80D 01 BRW DOCMPSERROR 
81 018 
3 Hs -DSABL LSB 
81 1 DDCMPSXMTERR: 
ig AB 081 § BISW #OLKSM paTEen 87 : Set error on XMT 
51 223A 9 1 MOVAB GFS$B_LSE(R3),R1 ; Bump error counters 
08Bt 3 1 0 4 BSBW  DOCMPSINCR COUNTER 
4 A 1A 5 BISW2 #GFSM_LXMT_UNDER,- 3; XMT underruns 
21 a3 gic 0 5 GF$¥_CSE_BCTRS(RS) 
FAOD 31 OB et 058 BRW DDCMPSERROR 
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DDCMP - Software DDCMP 16-SEP-1984 00:50:47 VAX/VMS Macro v04-00 Page 
v0s-000 Transmit message eet $833 752 (CORIVER.SRCJDDCMP.MAR; 1 . 
1 
1 ~SBTTL Check the receives message header 
: sDDCMPSCHK_HDR - Check the receive message header 
1 4 ; This routine checks the receive messages’ header to ensure that the header 
1 5 ; has no errors. It also checks the CRC's if the device this protocol is 
: § 3; running on does not support CRC checking. 
1 8 3 INPUTS R3 = Address of the GF block 
1 3 R5 = Address of the TF block 
1 40; R? = Clear 
! rf 3 R8 = Address of message header 
1 2g ; OUTPUTS R7 = Bits are set ree to the errors found 
: rt: : R3, R5,and R&B are preserve 
1 46 BDCMPSCHK_HDR: 
4C 02 a3 00 €1 1 Be BBC aGF $V CO «BE S0_PRVCRCRSD 108 3; If not BC then chk CRC's 
1c =—«BB $ re PUSHR #*M<R2,R3,R4> 
68 06 00 F858 cr 0B : 049 CRC CRCTABLE 0 AMFDSK_LENGTH, (RB) ; Cale the header CRC 
51 As B0 1 2051 MOVW MFDSK_CENGTH(RS) ,R1 : Get CRC from Message 
50 3} 0 ; O36 ayy . 3 If EQL then no lost data 
0188 ¢5) (01S 90 6 A 2054 MOVB #ODCMPSC_NAK1,TFSB_NAKRSN(R5) ; Set the reason for NAK 
42 11 O83F 2055 BRB 0$ ; Branch to set NAK flag 
68 81 pH  f Bees o29 5$: ee SOOCHPSC SON AF OSB_ASGID(RS) $ if pet a data message CRC 
3 is done 
51 01 AB 86 0847 2058 MOVW MFDSW_CNTFLG(R8) ,R1 ; Get the count field 
51 C000 8F AA 084 59 BICW #<MFDSM_SELECT!- 3 Clear if flags are set 
085 60 MFDSM_QSYNC>,R1 
59 51 O08 C1 0850 61 ADDL3 ory O85 LEMS TNCG AT RO ; Get size of hdr hcrc and data 
1¢ ee 54 $¢ PUSHR #*M<R27R3,R4> 
08 AB 51 00 = FB2A CF 26 27 crc CRCTABLE #0 RI - ; Cale CRC for data 
if BA 5 $e POPR #°M<R2,R3,R4> 
51 5 dO 6 808 MOVL R8, ; Get RCV message address 
. 6 6 ADDL2 =R9,R1 ; Add hdr, herc and data to get 
61 50 61 66 068 CMPW = RO, (R11) : Branch EQL the data CRC was 
07 it 6 34 BEQL 3: was OK 
0188 C5 0¢ 0 MOVB #ODCMPSC_NAK2,TFSB_NAKRSN(RS) ; Set NAK reason and 
1 11 71 BRB ; Branch to set NAk flag 
oc as 9 7 % 10$: TSTB TFS$B_CHAR(RS) : If full point control skip 
1 1 7 7 BEQL ; Address checking 
OSA g 7 74 CMPB MF DSB_ADDR(R8) ,- ; Do the addr match 
OD A 7A 2075 TF$B_ADDR(RS) 
14 3 7¢C 6 BEQL 30$ 3: Yes 
11 7 7 MOVB #DDCMPSC_NAK17,- 3; Set NAK rsn 
0188 c3 7 TF$B_NAKRSN(RSS 
1 88 79 20% BISB2 #TFSA_SNAK,- : Set to send the NAK 
o189 cS 0 TF$B_SFLAGS(RS) 
57 00010000 8F 8 8 1 BISL2 #OLK . ; Report the error to driver 
08F0 F ¢ SBW DDCMPSINCR_RCV_THRS ; Ince the receive threshold 
; counter 
05 ; : 30$: RSB 


47 
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Check the receives message header -SEP-1984 1 (46) | 


r 
DRIVER.SRCIJDDCMP.MAR; 1 


9 7 
2 8 -SBTTL Reply timing 
3 sDDCMPSREPTIM = Reply Timing 
9 3 3; This routine is called after a message has been transmitted by the driver. 
9 92 ; When the routine receives a message that must have reply timeout it enters 
9 95 ; it onto the RTOQ. In the case where the message transmitted 
9 94 ; does need to have a reply timeout the routine returns a normal status to the 
4 rt 3; driver. 
9 97 ; INPUTS RS = Address of the TF block 
: ® 3 R8& = Address of the XMT'd message 
9 1 3 OUTPUTS RGR? contain the return status for driver 
9 101 ; R3, RS, and R8& are preserved 
83 1 § 3 R9 is cleare 
93 2104 ODCMPSREPTIM: 
56 3¢ 6089 105 MOVZWL S“#DLKSC_RETINFO,R6 ; Set up return status for 
04 4} 1 $ LRL & 3; driver 
51 4 AaB DE 089 18 MOVAL XMTQ$B_MSGHDR(R8) ,R1 ; Get the addr of the msg hdr 
61 18F 91 Baxs 108 CMPB #DDCMPSC_SOH,MFDSB_MSGID(R1) ; Branch on NEQ not SOH msg 
08 3 Q8A0 2109 BNEQ 20$ 
OSCA 3 BBA 110 BSBW DDCMPSINS RTOQ : Insert the message on RTOQ 
15 aS 04 A1 90 A 111 MOVB MFD$B_NUMB(R1),TFSB_X(R5) : Set X = NUMB 
060F 31 OB8AA \i¢ BRW DDCMPSREM_RTOQ 3; Complete XMT's on RTOQ ACK'd 
05 OBAe ANZ 20$: RSB : 
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= Software DDCMP 16-SEP-19 75 ef AX/VMS Macro Vv04-00 Page 49 
Reply timing oe att 9033 DRIVER. SRE REID DOCMP.MAR; 1 ° (47) 
AE 211 | 
- 1% -SBTTL Queue empty - protocol may have work 
rt 1 sDDCMPSQEMPTY = Queue empty 
AE 2101 This routine is called when the user detects that the XMTQ is empty 
- | gi 3 but the protocol may have ACK's to send. 
AE 21246 INPUTS a = Address of the GF block 
~ ; S$: = Address of the TF block 
AE 21 5 3 OUTPUTS R3 and RS are preserved 
AE 21 g : $ R6,R7 contain status info 
| ; 4 3 Other registers are destroyed 
AE 2131 ° -ENABL LSB 
8 AE 1 ¢ DDCMPSQEMPTY: 
3¢ AE 21 MOVZWL S“#DLKSC_XMTMSG,R6 ; Set up return status for 
D4 0881 134 CLRL R 3; Set - for return status 
ES rtd ; 5 BBC #TFSV_SACK, TFSB_SFLAGS(R5),20$ ; If BC then no ACK to send 
Oss 1 § DDCMPSQEMPTY ALT: 
9A 0889 2138 108: MOVZBL $*#DDCMPS$C_ACK,R4 3 Set to send and ACK 
39 ogac 139 BSBW  DDCMPSQUEUE_xMT ; Queue the ACK 
F 2140 TSTB R7 : If EQL then error msg not 
1 8 C1 141 BNEQ eos 3 sent 
Ag 8 ¢? 146 208: Bisu #DLKSM_MSGSENT ,R7 ; Set that the ACK is onq 
OBC? 2144 -DSABL LSB 
08C7 2145 
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Queue empty - protocol may have work §-3 et 7 90:39:83 DRIVER. SRCIJDDCMP.MAR; 1 ™ (23) 


147 

148 -SBTTL Selection timeout clock 

} 9 3 START_TIMER = Selection timeout clock 

1 : : This routine sets the time the selection timer should expire, if it hasn't 
: 7 3; received some acknowmledgement from the other side. 

5: INPUTS R3 = GF block address 

8 : OUTPUTS R3 is preserved 

153 

161 BDCMPSSTART_SEL_TIMER: 

16¢ MOV G*EXESGL past 18.A0 ; Get the current time 

16 MOVZWL GFS$W_SELQAI(R3),R1 3 Get selection time wait 

164 ADDLS RO, RT, GFSL_SELEND(R3) ; Add the wait time to current 
192 3; time to get select end time 


| 
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;DDCMPSSTART_TIMER 
Starts the TQE penn must be called before the protocol is started 


INPUTS = Address of the od B si 
= Address of TF 
= Address of the driver timer routine 
i = UCB address for device 
R9 = Cleared on input 


IPL must be a device fork IPL 


OUTPUTS R3 and R5 are preserved 
R6 & R7 return status 


Deo Se Se Oe Se Oe Se Se Ge Se Se Ge Bese 


DCMPSSTART TIMER: 
MOVZWL S*#DL KSC RETINFO,R6 
MOVL 7, TFSA_DEV_TIMER(RS) 


CLRL 
PUSHR #*M<R3,R5,R6,R7> 
MOVL 


MOVAL TES. TOE (RS) RS 

MOVL B TOESL ERS{RS) 

*TOESL FR4(R5) 

MOVAL Ras TOESL FRG TOESL_FPC(RS) 
MOVB grorse _SSREPT, TQESB_RQTYPE (RS) 


Set up return info 

Set up device timer rou addr 

Clear for return sts 

Save registers 

Set up © save R4 

Get the address of the TQE 

Save UCB address 

Save TFB address 

Set address of timer routine 

see repeat bit sets 
TFSM_REPEAT also 

Set delta for halted protocol 


14 AS 
OC AS QOOO0CEI'GF oD 
0B AS) 05 


20 AS 00000000 01C9C380 BF 7D MOVQ #DDCMPSC_STPTQE,TQESQ_DELTA(RS) 
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F 
; 
D 
1 
5 
D 
1 
: 
11 A3 4 D CLRL GFS$L_TQE_STS(R3) ; Clear status 
50  00000000' GF D 9 MOVa G*EXESGQ- SYST IME. RO ; Get system time 
$ AS 9% CLRB TQE$B_RMOD(RS) ; Set no access mode for TQE 
00000000'°GF 16 A JSB Gr EXESINSTING ; Insert the TQE on timer queue 
O0E8 8F BA $ POPR #°M<R3,RS a R7> ; Restore registers 
30 a5 30 Aj DE 4 MOVAL TFS$Q_XMTQ(RSS ,TFSO_XMTQ(RS) : Init transmit queue 
4 AS OA DE 9 MOVAL TFS$Q_XMTQ(R5), TFSQ_XMTQ+4(R5) ; Init transmit queue 
0 AS 0 aS ODE MOVAL TFSQ_CTLQ(R5), TFSQ_CTLQ(RS) 3: Init control queue 
4 a5 AS ODE MOVAL TFS$Q_CTLQ(R5),TFSQ_CTLOQ+4(R5) : Init control queue 
8 AS AS ODE MOVAL TF$Q_RTOQ(R5), TFSQ_RTOQ(RS) : Init reply timeout Q 
C AS AS ODE MOVAL TFS$Q_RTOQ(R5S) ,.TFSQ_RT0Q+4(R5) : Init reply timeout Q 
$e AS AS ODE MOVAL TFSQ_CMPQ(R5) , TFSQ_CMPQ(RS) : Init completetion Q 
f . . DE MOVAL TFSQ_CMPQ(R5) ,TFSQ_ CMPQ+4(R5) : Init completetion Q 
40 a5 40 ASCE C MOVAL TFSQ7XMTOVE (RS), TFS =XMTOVE (RS) : Init overflow queue 
44 AS 40 aS 1 MOVA TFSQ XMTOVF (RS). TFSO hh #4(R5) 
01 Ads ° Bi38 #GFSA_TIMER_RUNNING, GF SB _TIMER_STATE(R3S) ; Set that timer is on 
8 


DOCMP 


56 
00E8 


MONO 
mw“ 


3¢ 


8B 
D4 


vce 
WDOOOOOOOOOOOOOOOO —-£ 


oO 


N 13 
DDCMP 16*SEP=1984 00:50:47 VAX/VMS Macro v06-00 p | 
timeout clock ea ey age 24, | 
1 
: ;DDCMPSSTOP_TIMER 


Stops the TQE running must be called after the protocol is halted 


INPUTS a = Address of the GF block 
R5 = Address of TF block 


IPL must be a device fork IPL 


OUTPUTS R3 and_R5 are preserved 
R6 & R7 return status 


. 


Des Se Se Oe Se Se Se Se Geese 


DCMPSSTOP_TIMER:: 
BOveu S*#OLKSC_RETINFO,R6 


PUSHR = #*M<R3,R5,R6,R7> 
CLRL R2 


The following set up for the call to remove the timer queue element may 
Look strange. Each of these fields has been set up this way so that 
first only one TQE (the one we are interested in removing) is removed 
from the timer queue, second the routine must be faked out so that 

it doesn't try to deallocate this space from nonpaged pool (thats why 


; Set up return info 
; Clear for return sts 


3; Set no access mode of TQE 


RWW INI arnononononorornononond 


=O ODNOA UENO OONOAUE Wit — 


4g we said it was SSSNGL when the TQE is in practice repeatable). 
44 MOVAL TFSL_TQE(RS),RO ; Set up TOE address 
45 MOVL  TQESC_FR4(ROS,RS : Get the TF block address 
46 OVL  R5,TOESL FPC(RO) : Set up in FPC so rigth TQE is dea 
4 MOVZBL #TQESC SSSNGL,R4 ; Set system proc not repeatable 
48 JSB G*EXESRMVTIMO ; Call system routine to rmv TQE 
49 POPR #*M<R3,R5,R6,R7> 
$37 81 C82 #GFSM_TIMER_RUNNING,GFSB_TIMER_STATE(R3) ; Set that timer is off 
2252 
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DDCMP 16-SEP-1984 00:5 AX/VMS Macro v04-00 3 
mn timeout clock Breer o8 Bostsigo PARIWES Bacto vOR~00. age 22) 


2 i ;DDCMPSSTOP_SEL_TIMER 
gi : This routine stops the selection timer by clearing the bit to say nothing is 
: being timed. 


26 ; INPUTS R5 = Address of the TF block 

61 : 

6¢ HDCMPSSTOP_SEL_TIMER: 

o CLAB TFSB_MMCTR(RS) ; Clear the number of msgs XMTd 
65 


66 
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DDCMP - Software DDCMP a a ae 90:30:62 AX/VMS Macro Vv04-00 Page 3 
v04-000 Selection timeout clock “SEP-1984 00:11:52 CDRIVER.SRCJDDCMP.MAR;1 (56) | 
989 6 
989 § -SBTTL Queue and requeve the message to be transmitted 
2 4 oy ; QUEUE_XMT = Queue transmission 
0989 te : This routine is responsible for the XMT Queue (XMTQ). When a mesage is 
0989 75 ; XMT‘d this routine is called to manage the queue. If it is a DLE message 
0989 74 ; then it is only queued when XMTQ is empty. SOH and ENQ's are transmitted 
989 75 ; in the following order: 
989 16 $ NAK,REP,(N * SOH),ACK 
989 77 ; ANAK and ACK should not be on the queue simultaneously. 
0989 4 ; This routine also calls SETUP_HDR to include the header message in the 
34 $4 79 ; queue, hence when the driver 7s to transmit the message it must first 
44 ei 3; set up its’ header. 
0989 ¢ : XMTQ is ‘ull when each of the slots allowed to transmit data messages is 
0989 4 : filled or inthe case of retransmitting when that value is less than or 
0989 4 ; equal to zero. In such cases an error is returned and the transmit is 
443 $2 3 Queved to the overflow queue. 
0989 Hd : NOTE: Any change to the XMTQ or control messages on that queue must be 
444 38 3 done at device IPL 
0989 2290 : INPUTS R3 = Address of the GF block 
0989 91; R4 = Type of message 
0989 444 ; R5 = address of TF block ; 
0989 2293; R8 = Address of buffer to queue for data and maint 
0989 soe 3 messages only 
443 2 3 RO = Size of data message 
0989 331 : OUTPUTS R3, RS, RB, and RY are preserved 
B38 538 
44-43 $00 : A new entry is put onto the XMT QUEUE 
0989 30¢ HDCMPSQUEUE _XMT: 
44 4 304 ; Handle SOH message 
54 BI oF ¢ 44 88 ~— #DDCMPS$C_SOH,R4 : Branch if not SOH 
10 a 9 O38 b8 HAS TF$B_XQCNT(RS) : o weg XMTQ is not yet 
57 : : as 0994 19 $ pi oue #DLKSM_QFULERR,R7 : Set queue full error 
8 AS 3) 99A \ g: DECB TFS$B_XQCNT(RS) : If free grab it 
2 3s 8 99D 1 MOVL : Save in R2 for CRC calc 
G22F 30 O9A 14 BSBW  DDCMPSSETUP_MSG_HDR : Set up the msg header 
9A 15 DSBINT GFS$B_DIPL(R3) : Disable device interrupts 
13. OA AB es 6 akg XNI1GSS_BUF TYP(RE) S°#DYNSC BUF 10 : If EQL then correct buf 
300 13 BUG_CHECK NOBUF PCKT, FATAL 
34 85 68 9 984 2319 10S: INSQUE (RB), aTF$Q_XMTO+4(R5) : Q at end of XMTQ 
Oc a5 ; 988 0 TSTB TFS$B_CHAR(RS) : If EQL then don't start 
os 1 988 | BEQL 15$ : selection timer 
fF €1 09680 § BBC #MFOSV_SELECT,- : If BC no select to process 
03 01 Al 9BF MF DSW_CNTFLG(R1),15$ 
31 09C2 4 BRwW 100$ ; Branch to start timer 
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31 44: 5 15$: BRW 120$ 
oe ; 3; Handle DLE message 
91 09C 9 208: CMPB #DDCMPSC_DLE,R4 
13 9c 0 BNEQ 30$ 
4 9CE 1 MOVL RB,R2 
0 0901 ; BSBW + DDEMPSSETUP_MSG_HDR 
9D4 DSBINT GFS$B_DIPL(R3) 
3 9DB 4 INSQUE (RB) TFSQ_XMTQ(RS) 
AB DoD 5836 Freee PRTOSR SELECT, XMTOSB_FLAG(RS) 
31 O3E , 25$: BRW 1208 ms 
O9E9 39 ; Assume that it must be an ENQ 
O9E9 40 
30 09€9 41 30S: BSBW DDCMPSSETUP_ENQ_HDR 
O9EC 348 
O9EC 4 
95 O9EC 2344 TSTB R7 
12 O9EE $02 BNEQ 25$ 
O9FO 46 
O9FO 47 ; Handle an ACK 
O9FO 48 
91 O9FO 49 33$: CMPB S“#DDCMPSC_ACK,R4 
12 O9F3 2350 BNEQ 50 
DE O9F5 2351 MOVAL TFS$L_QNAK(RS),RO 
O9FA 328 DSBINT GFS$B- DIPL(R (RS) 
E5 OA01 235 BCC SXATGSV QUEUE ,- 
AO3 2354 mrase FLAGTROS 35$ 
OF OA06 2355 REMQUE (RO) 
E2 OA09 2356 35$:  BBSS axmresy ONQUELE. - 
OA0B 57 KMTOS8 F AG(R2) ,40$ 
of 0A0 58 INSQUE (R2) a $0,CTL LQ+4(R5) 
95 0OAl 59 40S: TSTB TFSB. CHAR RS) 
13° OA 60 BEQL 48$ ~ 
—1 A17 61 45$: BBC ied oy ELECT,- 
A19 $¢ MFOSW_ TYPE FLG(R1) ,48$ 
Ht AIC 6 BRW vt te 
1 AF 64 48$: BRW 120$ 
OA 65 
. $6 3 Handle NAK message 
91 OA 68 50$: CMPB “pete NAK ,R4 
12 OA $ BNEQ Os 
DE OA 0 MOVAL TFS$L -RACKCR ),RO 
A 8 71 DSBINT GFSB-DIPL(R3) 
ES OA i BBCC cunreey ONQUEUE ,- 
A34 7 TO$B FLAG(RO) .55$ 
OF 0A37 74 REMQUE i oF as 
E2 OA3A 2375 55$:  BBSS aunresy VEVE.< 
A3C 6 XMTOSB Sit G(R2) 
9 ARF 7 INSQUE tne) sat F$Q gag Tose Rs) 
AS3 4 60$: TSTB F$B_C 
1 ve 7 BEQL 65$ 
£1 AG 0 BBC #MFOSV_SE Lect - 
AGA 1 MF DSW_CNTFLG(R1) 658 
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; Branch to comp queueing 


roe 


Branch if not DLE 


Save in R2 for CRC calc 

the header 
e device Bag 
Queue the ob 
Dec number o Gan: lente 
Driver must know to turn Link 


et up the header for the ENQ 
} 


S 
This also returns the ENQ 
block in R 

If NEQ then an hdr error 


Branch NEQ ACK 


Get the addr of the NAK block 
Disable device interrupts 
BC no NAK on queue 


BS ong remove it 
BS then ACK q'd 


BC must q the ACK 

EQL then FPC no need 

set selection timer 

BS branch to proc sel exp 


oe ee ee 
—-~OoO-—-——- WY -« ~ 


Else return 


Branch in NEQ 


Get addr of ACK Q block 
Disable device interrupts 
7 BC then not on Q 


If BS then rem ACK from Q 
If BS msg on queue 


Queue the NAK at front of Q@ 
If EQL then don't start 
selection timer 

If BC no select to process 


E 14 
oof = Software DDCMP 1 =3Ebn 1386 00:3 :47 VAX/VMS Macro v04-00 Page (if, 


CMP 
-000 Queue and requeve the message to be tra 5-SEP-19 


4 00:11:52 (CORIVER.SRCIDDCMP.MAR; 1 
0039 1 OA4D BRwW 100$ 3; Branch to start timer 
Miss 3} ns § 65$: BRw 138 ; Branch to comp queueing 
“ 5 ; Handle REP 
54 93 3 ns 5 70$: cies “#DDCMPSC_REP,R4 3; Branch NEQ 
AS § DSBINT GFS$B 4yh Md: ; Disable device interrupts 
E2 OASF 90 BBSS ounraet NEUE UE +5 3; If BS then entry on queue 
04 1F A A61 91 MTQ$B VRCA 75$ 
2485 6 OE 0A64 3 INSQUE (R2) att Q ott os4 crs) 3 at the top of the queue 
ASE 333) 758 
0A6 95 : The reply timer must be running if a REP is sent, it implies that there is 
ae 38 ; @ message on the reply timeout queue. 
16 AS) 04 88 A6 98 BISB2 #TFSM sie TFSB_SELTIM(RS) 3; Set timer ag 
0c AS) 695 «(OAC (2399 TSTB. = TF $B_CHAR(RS) : If EQL then don't start 
05 13 OA6F 2400 BEQL 0$ ~ : selection timer 
OF £0 OA71 2401 BBS sd ony SELECT, : If BS ther a select to process 
13.01 Al 0OA73 240 D$w_CNTFLG(R1),100$ 
004A 31 4 abt 80$: BRwW 1508 ; Branch to comp queueing 
pare ¢82 3; Assume that message is an STRT or STACK 
OA79 2407 90$: DSBINT GFS$B tg he ; Disable device interrupts 
00 €E2 OA80 2408 BBSS ounrasy : If BS then message in on 
04 1F A page 409 MTQ$B WAC +S ERI 100$ 3; the queue 
2485 6 Of As 410 INSQUE no arr ree CTLQ+4(R5) : Insert message on XMIT Q 
CA 95 OA89 2411 1008: TSTB B.C R(RS) ; Branch EQL the station is a 
OD 13 OA8C ri¢ BEQL 3; FPC and there is no need to 
OABE 241 3 turn the Link 
1F A2 O02 AB QA8 414 BISW2 #XMTQSM_SELECT,XMTQ$B FLA 9) : Driver must know to start XMT 
16 A5 02 8A OA92 2415 BICB2 #TFSM_OQNSELT, it F$B_ SECTIM R5)  : We have now de-selected 
QOA96 92416 : ourself. 
00 £0 OA96 2417 BBS #TFSV_STATYP,= 3; Branch BS because the station 
28 OC AS OA98 2418 TF$B_CHAR(RSS ,120$ : is a tributary, hence do not 
OA 419 3 start the selection timer 
OA 420 110$: ENBINT 3; Enable device interrupts 
FE26 30 OASE 2421 BSBW DDCMPSSTART_SEL_TIMER : 
08 BA O 4 § BICB2 #TFSM_RCVDET,- : Reset the RCV detect field 
16 AS OAA 4 $8 SELTI ) 3; for a new selection 
0 EF QAA ak EXTZv @# PSC_SEL_THRS,- ; Extract the field 
0 AA? 2425 DDCMPSC_THR ite 3 to increment 
51 01C5 3 AAB 24 § TFSW_THRES(RS),R 
51 7 91 OAAC 24 CMPB #D tapse _THR “MAX, R1 ; Has the thres been exceeded 
7 16 QAAF 24 3 BGTR 11 3; No 
57 1 AB QABI 24 BISW2 #DLKSM_TRNSERR,R7 ; Report that thres exceeded 
1 D4 OAB4 24350 CLRL R1 3; Set the SEL threshold count 
AB6 2431 3 to zero 
e241 ABS rt ; BRB 118$ 
3! 9 AB 434 115$: INCB : Ince the thres error counter 
06 =. ABA 2435 1188: INSV #ODCMPSC_SEL THRS ,~ : Insert count 
03 ABD 24 6 a ar HR_ SIZE, 
01C5 fe ABE 4 it THR hes RS} 
11 AC 438 BRB 


— 
j 
| Bpene = Software DDCMP so $ ats 9 90:3 :§ rt AX/VMS Macro v04-00 Page ry 
v04-000 Queve and requeve the message to be tra P-1984 DRIVER. SR €1D DDOCMP.MAR; 1 (56) 
AC 9 
AC 0 1305 ENBINT ; Enable device interrupts 
OS OAC 441 123$ RSB 
Arp ite 
13 OA AB 91 AC? 2644 1508: CMPB XMTQSB_BUFTYP(R8) ,S*#DYNSC_BUFIO ; If EQL then correct buf 
04 13 OACB 2445 BEQL “— 
ACD ae BUG NOBUFPCKT FATAL 
40 a5 68 OF AD 44 1608: insaue. “tea. TF$OQ OMATOVE CAS) ; Insert at top of queue 
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DDCMP = Software DDCMP 16-SEP-1984 00:50:47 VAX/VMS Macro Vv04-00 Page 58 
v0s~000 Queve and requeve the message to be tra ae 88:39:83 LORIVER. SREIDDCMP.MAR: 1 . (38) 
AD 4 
m4 r ; DDCMPSREQUEUE _ AMT 
AD 454 ; This routine is called when a message is to be transmitted but T < N+ 1 
AD 455 ; which implies that an ACK was received for some messages but not all that 
AD & § ; were sent. This retransmits these messages. These messages ot ready have 
AD 457 ; headers set up and they can be found on the RT0Q. This routine will 
AD6 246 8 ; retransmit all messages until T < N+ 1 regardless of whether or not 
ny t25 3; the XMTQ gets filled. 
AD 461 ; INPUTS R3 = Address of the GF block 
~ rh 3 RS = Address of the TF block 
AD6 2464 : OUTPUTS R3 and RS are preserved 
nt rt $ Entries added to the XMTQ 
OAD6 163 HDCMPSREQUEUE_XMT: 
rt $68 DSBINT GFSB_DIPL(R3) : Disable interrupts to DIPL 
OQADD £30 3; This code code is necessary to ensure that messages are not retransmitted 
QADD 2471 ; outof order. It is not very otegent because it will fudge around 
OADD $28 3; with the drviers XMT_INPR and POSTQs'. Note that this is all done and DIPL 
ner rh 3 $o that synchronizationis ensured. 
50 54 A5 DO OQADD 2475 MOVL TFSA_XMT_INPR(R5S) ,RO ; Get the inprogess address 
51 60 0° OQAE1 ans MOVL (RO),R1 ; Get message inprogress 
12 13 OAES 267 BEQL 2s : If eql then none 
OD 1F Al O02 £0 OQAE6 2478 BBS #XMTQSV_CONTROL ,XMTOQSB_FLAG(R1),2$ ; If set then control message 
60 D4 OAEB 2479 CLRL (RO) ; Clear message inprogress 
sa 8} pO AEF ScBt MOVE” -RTERB 
037A wd OAF sae BsBu DDCMPSINS_RTOO ; Put message into RTOQ 
50 5°" a2 oY we iss 2$ Nt TFSA_POSTQ(R5) ,RO ; Get address of posta 
51 61 DO OAFF 24 : 4$: mMOVL = (RA), RI : Get next entry 
ee a 
OA Al iy 7 +44 $33 once ZEUSC BUF 10, HATOSB_OUF TYPCRT) ; If NEQ then not an XMT | 
ED 1F Al 5 6 B0 491 BBS #XMTQSV_CONTROL ,.XMTQS$B_FLAG(R1),4$ ; If BS then control message 
52 61 00 aH $38 MOVL R1),R ; Be sure to save next entry on post 
51 61 OF a 49 REMQUE (R1),R 3 get the entry 
oe Oe A 
9340 BIF 249 BSBU «DDC MPSINS_RTOQ : Put into its place on RTOQ 
10 gf BA : 49 POPR #*M<RO,R1,RB> 
gi $ 90 ves ae Ri ; Set next entry to check 
52 30 AS DE 0B2B 0 8S: MOVAL TF$Q_XMTQ(RS) R2 : Queue the rexMT's at 
51 85 OF OBeF REMQUE a@TF$O_RTOQ(RSS ,AI : Get the entry to rexmt 
6 1D 0O€ H § BVS 40$ ; No more enties on queue 
18 AS 96 06 INCB TFSB_CURRTO(RS) : Increment the number of times 
; ; 4 ; a REP has occured 
1B A 91 ; 5 CMPB 158 CUBR TORS) «= ; Branch on LSS because the rep 
vA a3 : 5 $ TE SB_MAXRTO(RS) ; 1/0 max has been reached | 
1F 619 O0B3D 25 BLSS 25$ ; which implies a problem with 
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Queve and requeve the message to be tra 5-SEP-1984 00: 


w= 


so —3o-o—- F»VOO -O 
m wont" oom 


SSa= SF 


SHDHOOHOOSOD SOD DOD So DDD SSDS OD 


OO OOOO 09909 SII NIAAA AMNION & EA 
ADBDOAWMNA ODEON NNO BDHENMOBWOWos Ovwwnn 


Soon 
>>r?ro 
orn 
[wr a 


PUPUPU PV PUDUSUSUSUSUSUSUSUSUSUS SUSI 
PAA 
oe #0 oe 


FEW AAAI AIO RPOPOPNPURINN 2 2 SS 


AO ODNAMN EWN $$ O OD NOU EWN OO OONAUE Win 


® 
3 


NOBUFPCKT FATAL 


Ck 
(R1), rFs0 RTOQ(RSS 


TF$B’CURRTO(RS) 
POLES PRSTERR. R7 


508 
@TFSQ_RTOQ(RS) ,R1 


MTQ$B_BUF TYP(R1) ss*sevnec.pur io! 


opr hae . 


Ck 

XMTQSB_MSGHDR(R1) ,RO 

#MEDSM-S SELECT Srpse CNTFLG(RO) 
) MFOSB_RESP(RO) 


ee . “ete -DRVCHR(R3) ,35$ 


TFSB_RTR 


nF DSU Ventre 


(RO) ,RO 
#MFOSA_ SELECT MFOSM. QSYNC,R9 


R1,R 

DDERPSSETCRC: 
M<R1,R2,R 

tr) (R2)° 


#TFSM_TIMER, TFSB_SELTIM(RS) 


; t 
XMTQS$B_BUFTYP(R1) ,S*#DYNSC_BUFIO ; 


/VMS Macro V04-00 Page 3 
IVER.SRC §poc DCMP.MAR; 1 (58) 
he other node 

If EQL then correct buf 


; Ensure buffer conptet ie. 


: Reset the cur num of RTO 


a+ the entry to rexmT 
more enties on queue 
it) EQL then correct buf 


; Get the addr of the msg hdr 
; Clear select fla 
3 e date the RESP field with 


e@ most recent RCV msg 


: it BC then device does CRC 
; Get msg count 
; Set buffer addres for CRC calc 


Else we must do our own 


; Insert onthe XMTQ 
; Set new P 
> Grabas of on the queue 
; Increment T (last xmt‘'d) 


lace to insque after 


; Set reply timer not running 


i 
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L Calculate the CRC 


; DDCMPSSETCRC - Calulate the CRC for devides that don't support CRC 


Once calcul 


ee Oe Oe Oe Se Se Oe Se Bee 


DCMPSSETCRC: 
PUSHR 


MO 
10$: POPR 


This routine calculates CRC’s for 


ated it stores the CRC 


INPUTS . = Address of XMTQ entry 
R9 = Length of the data message 


OUTPUTS RO is destroyed 
are preserved 


R3, RB and R 
#°M<R1,R2,R3,R4> 
CRCTABLE ,#0 


1 
#ODCHPSC_ENO.MFDSB_MSGID(R1) 


CRCTABLE,#0,R9,- 
XMTOSK LENGTH CRG) 
RO, XMTOSW_DCRC(R4) 
#°A<R1,R27R3,R4> 


; Save registers 


; Calculate CRC for header 


; Move into HCRC field 


Page 60 


(60) 


evices that don't support CRC checking. 
n fields on XMTQ it is up to the 
device to send the CRC at the proper time. 


: Get the address of the data 
: If EQL then no need to calc 


data CRC 


; Calculate the CRC for data 


Movw into DCRC field 
Restore registers 


J 14 
DDCMP - Software DDCMP 16-SEP-1984 90:3 75 87 AX/VMS Macro Vv04-00 Page 61 
v04-000 Calculate the CRC “-SEP-1984 DRIVER. SRCIDDCMP.MAR; 1 (62) 
D 
BD SBTTL Setup headers for maint and data messages 
BD ; SETUP ASG. HDR = Set up the header for a maint or data message 


65 


RSB 


73 
74 
Bb 588 
D a] 3 This routine sets up a header message for a maintenance or data y hes nt 
BD 4 ; It is passed the buffer which is going to be ueued for XMT and inserts 
+4 ate ; the header into the proper area for transmission. 
De 2581 INPUTS R2 = Address of the buffer tor CRC calculation 
D 5 ¢ 3 R35 = Address +i the GF block 
D 583 ; R4 = Type of message 
D 2 4 : Re = Address r* the TF block 
D 5 3 R7 = Clear 
+4 ; § : R8 = Address of the buffer to be queued for transmit 
OBD2 2588 ; OUTPUTS R1 = Addres s of header to queue 
OBD 589 ; R3, R4, R8, and R9 are preserved. 
4 209 : 3 R7 is a. tf any errors are found 
OBD 39¢ bocnsse tup MSG_H 
51 24 AB 33 4 59 Jad “TRrase Morty R1 :; Get addr of the hdr to setup 
61 54 «9 D6 2594 HOVE R4,MFDSB_MSGID(R15 : Move in the data msg | 
59 C000 8F AA OBD9 2595 BICW2 #<MFDSM seecti= : Be gure the count isn't over 
OBDE 596 MFOSM_QSYN : 65K (14 bit field) 
01 Al 59 B0 pens 597 MOVW RY, mrDSi. WEE eCRT) ; Insert into the count field 
54 81 8F 91 OBE 598 CMPB #DOCMPSC— —50H,R4 : Is this a hdr for a data msg 
27s 12 pBee 238 BNEQ 208 3 No 
paee tit ; Yes, set up a data message header 
06 16 AS 00 €E5 yore $08 BBCC #TFSV SELECT, TFSB_SELTIM(RS),15& ; Send select flag?? 
8000 af AB OBED 604 BISW2 mrobercwyFL tA : Set the select flag in header 
03 Al 11 AS 90 per O06 15$: MOVB TFS$B “RCRS) RE DSB_ RESP(R1) : figayback ACK's in header 
a en te am Jancesdieedepoley, 
OE AS 90 OBFE 609 MOVB TFS$B RADDR IRS) . - ; Move in trib addr 
05 al 3 610 mF OSG A (R1) 3 to transit to 
01 Al 4000 8F a8 OCO3 2611 BISW2 rDSA BRYN AF DSW CNTFLG(R1) Set to always resync 
02 A3 00 33 0c09 216 BBS rer $v_ CRC, GF$B_ DRVCHR(RS), DDCMPSSETCRC s IF BS then we do the CRC 
5 943 el? RSB 
OcOr oi? ; Set up a maintenance message header 
AB ‘OF $13 208: BISW2 #<MFDSM_QSYNC!- : Set the flags (always ones 
C1 O18 MFOSM_SELECT>,- ; when sending main msgs) 
01 Al C000 BF E19 619 MFDSW-TYPFLG(R1) 
ct 621 ASSUME pe FILL EQ 0 
¢ § ASSUME B_NOMB EQ MFDSB_RESP+1 
93 Al 4 ar 624 CLRW MFOSB_RESP(R1) ; lero field 
3 aS 0 C18 2625 MOVB TFS$B_RADDR(NS) = : Set up addr to XMT to 
05 Al C1B 26 § MF FOSB_A ADDR(R1) 
87 02 A3~=s«<00 38 3 BBS #GFSvV~ _CRC,GFSB_DRVCHR(R3) ,DDCMPSSETCRC ; IF BS then we do the CRC 
C 6 
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oOo 


-SBTTL Set up control message headers 
; SETUP_ENQ_HDOR = Set up an ENQ message 


This routine sets up a the eppropr lace ENQ message. The buffers for each 
of these messages is stored in the TF block hence no allocation of memory 
need take place 


¢ 
f : 
¢ 4 
€ 6 7 
E53 $839 | 
C 6 8 3 
C 659 ; 
C 640 ; INPUTS R3 = Address of the GF block 
C 641 ; R4 = Type of message 
C 7) 3 R5 = Address of the TF block 
O¢ eh 3 R7 = Clear 
C 645 ; OUTPUTS R1 = Address of header to queue 
OC 646 ; Re = Address of the block to queue 
0c 647 ; R3, R4, and R5 are preserved. 
5 648 ; R7 is set if any errors are found 
C 649 ; 
0c 650 
0c 651 
Oc O36 DDCMPSSETUP_ENQ_HDR: 
0c 65 SDISPATCH R4,TYPE=B,- 
0c 654 <- 3 index saction 
0c 655 <DDCMPSC_ACK g0$>- 
0c 656 <DOCMPSC—NAK 0$>- 
0c 657 <DDCMPSC_ 40$>- 
0c 658 <DOCMPSC_STRT 60$>- 
0c 659 <DDCMPSC-STACK 70$>- 
a 
57 08 a8 OQC35 2662 108: BISW2 #DLKSM_HDRERR,R7 ; Set up for header error 
05 O0C38 266 RSB 
oC 664 
OC 292 : Set up a ACK message 
52 5C AS ODE 39 667 20$: MOVAL TFS$L_QACK(RS),R2 3; Addr of block to queue 
51 24 A2 CODE Bcze 668 MOVAL XMTQSB_MSGHDR(R2) ,R1 3; Addr of header 
C41 669 DSBINT GFSB_DIPL(R3) ; Disable interrupts to DIPL 
34 11 0C48 2670 BRB 50$ 
OC4A 2671 
zoe of6 
C4A 267 
78 ore 3 Set up a NAK message 
52. 008C CS DE OC4A ore 30$: MOVAL TFS$L_QNAK(RS),R 3; Addr of block to queue 
5 A2 DE OC4F 267 MOVAL XMTOSB MSGHDRIR ),R1 : Addr of header 
C53 O78 DSBINT GFS$B_DIPL(R3) ; Disable interrupts to DIPL 
0188 C FO OCSA 267 INSV TF$B NAKRSN(RS) ,=- : Insert the reason for the NAK 
06 00 c5 6 ? #mFOSC_SuBTYP #MFDSC_SUBTYPL,=- 
02 A C6 6 MFDSW_TYPFLG+{(R1) 
1 11 coe § BRB 508 ; Send select flag not set 
ee 684 
6 ? 5 ; Set up th e REP message 
52 00ge CS DE O0C64 26 $ 40$: MOVAL TFSL_QREP(RS) Rg : Addr of block to queue 
51 26 DE 0C69 2688 MOVAL XMTOSB_MSGHDR(R2) ,R1 ; Addr of header 
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Cé6D 
C6D DSBINT GFS$B_DIPL(R3) 3 Disable interrupts to DIPL 
03 Al 94 tne CLRB MFOSE i iged: 3: Zero field 7 
04 A1 15 a5 90 OC? MOVB TFSB_R(RS) ,MFDSB_NUMB(R1) 3 Number of last data msg XMT'd 
c7c 3; to transmit to 
08 11 re BRB 55$ 
03 Al 11A5 90 cre 50$: MOVB TFS$B yf MF D$B_RESP(R1) 3 Piggyback ree? s in header 
04 Al 94 : ; CLRB MFDS $B_N (R1) 3; Zero the field 
C86 
01 Al C000 8F AA QC86 55$: BICw ed tye SELECT!- ; Clear the flags in header 
c8c FDSM_QSYNC>,MFDSW_CNTFLG(R1) 
E5 Oc8C BBCC ATE SV ELECT ; Send select flag?? 
CBE TF Veet TIN(RS) 57$ 
01 Al 8000 i AB 0C91 BISW2 #MFOSM_SELECT,MFDSW_CNTFLG(R1) ; Set the select flag in header 
01 Al net * 4 A8 0C97 57$: BISW #MFDSM-QSYNC MFDSW_TYPFLG(R1) ; Always set QSYNC flag 
yy 90 OC9D MOVB TFSB XRDDR(R5) ,- : Move in trib addr 
05 Al CAO MFO$B_ADDR(R1) 3 to transmit to 
03 02 Ad = «00 1 3 BBC #GFS$V-CRC,GFSB_DRVCHR(R3),58$ ; If BC then device does CRC 
FEFF 30 cay a BSB DDCMPSSETCRC : Else we must do our own 
Cc : —. ; Reset interrupts 


AAO 
>>>>r>y 
mmmmno 


; Set up a STRT message 


60$:  MOVAL TFSL_QSTRT(RS),R2 
MOVAL xTOSB_ MSGHDR(R2) ,R1 


Addr of block to queue 
Addr of header 


; Set up the STACK message 


70$: MOVAL TFS$L_QSTACK(RS) ,R2 3; Addr of block to queue 
5 4 A2. DE MOVAL XMTQSB_MSGHDR(R2) ,R1 ; Addr of header 
80$: DSBINT GF$B_DIPL(RZ) 3 Biseble interrupts to DIPL 
03 Al 4 CLRW MFDSB_RESP(R1) : lero field 
05 Al OE AS 0 MOVB TSB. ZADDR(RS) oMFDSB_ADDR(R1) s awe in Sete oder 
: to transm ° 
03 02 A3 00 1 BBC #GFSV_CRC,GFSB_DRVCHR(R3S) ,90$ ; If BC then device does CRC 
FEDO 30 BSBW  —s- ODCMPSSETCRC : Else we must do our own 
90$: ENBINT : Reset interrupts 
16 A501 aitse #@TFSM_SELECT, TFSB_SELTIM(RS) ; Clear set select flag 


NNN NN NNN SSN AAA AAAAOOOO 


WA A.A A. AN AAI SIINININININNININY 3 3 BOO OO 000000000000000 


DNA MAE WM OOD NAME WIN  O OD NAME WIN 9 OD NOU EWN O ODNAU ES Wit O00 


uw 
~ 
So 
— 
a" 
oO 
o 
w 
o 
m 
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BD OPO OB rt i i i ce ee a ee ee ee ed eed 


E 
3FC BF E 
83 55D E 
51 110A D E 
55 14 A Dd E 
53 4C A D F 
11 A D4 F 
F 
F 
F 
3 95 F 
? 3 F 
12 OC AS 0 € F 
63 (0 91 
yi 
63 91 
13 
OC AS 95 
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-SBTTL Real clock timer 
DDCMPSTIMER = Reply or Selection clock has expired 


This routine handles real time clock timeouts. This routine is called by 
the software timer interrupt routine when the clock ticks a second. 


INPUT R3 = Address of the UCB 
R4 = Address of the TFB 
RS = Address of the TQE 


OUTPUTS FR3 contains the status of the operation 


SIDE EFFECT: 
A side effect of this routine is on persistant errors 
the Line is shutdown and thus the TQE must be removed 
from the timer element queues. The TQE must be removed for 


SANS 


P* al al * al * al ool ool al sab ab esha hvah rah al sabes slat ae a ee ae oe oe oF oy oe ot 


the protocol must deallocate the TF/GF blocks on Line shut 
down. Since the TQE is part of those blocks then we can no 
as ned use that TQE for our timer. 2) We would Like the 


protocol timer to be running only when the protocol is 


timer queue. Therefore a BIT was established to determine 

if indeed the timer was stopped. If we find that 

the timer is not_longer running then we should not 

return with our TQE, but instead return with the 

system NOREPT TQE. This TQE was established quse for that 
n 


NAME WN SO OO NOAU EW OO OONOU SU" 


Ge Be Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Sse Ge Se Se Se Se Se Ss Ge Se Se Se Ss Se Se Se Se Ge Se 


pe i 


ano 


running to eliminate some overhead on the system. This will 


two reasons: 1) There may be a time when the driver accessing | 
not happen obviously becuase at this point the TQE is not on the 
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9 purpose a description of its use is included 
ory the module EXESSWTIMINT. 
ak NOTE: 
77 This routine expects the RO to have the LBS if the call 
774 to the driver timers’ routine did not cause the device 
775 to be shut down. If the device was shut down then the 
o7¢ TF/GF block could potentially be deallocated and thus 
777 ; DDOCMP had better know not to try to access that block. 
778 DDCMPSTIMER: : 
779 PUSHR #*M<R2,R3,R4,R5,R6,R7,R8B,RI> 
780 VL R2 ; Put addr of TQE into R2 
781 MOVL TQESL_FR3(R2).R1 : Get the UCB address 
7 § MOVL TOESL_FR4(R2),R : Get the TF block address 
7 MOVL  TFSA_GFB RS ; Get GF block address 
, 4 CLRL =—- GF SL TQE_STS(R3) ; Use for status 
, $ ASSUME DDCMPSC_STA_HLT EQ 0 
, 8 sre GFSB_STATE(R3) : If protocol halted no work 
py BBS @TFSV_STATYP,TFSB_CHAR(RS),5$ ; If Trib don’t use for startup 


79 CMPB #ODCMPSC_STA_IST,GFSB_STATE(R3) ; Branch EQL because selection 
79 BEQL DOCMPS ; timer is running 

794 CMPB #ODCMPSC_STA_AST,GFSB_STATE(RS) ; Branch EQL because selection 
795 BEQL DDCMPSSECECT : timer is runnin 


796 TSTB TFS$B_CHAR(RS) Is this a FPC tine? 
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26 \ DOD 2797 BNEQ 208 ; Branch if anything else 
00D8 4 Pe BRW DDCMPSREP_TO 3 aay to handle as a reply 
3 timer 
05 a3 Hf i 8 5$: pec a alah ; Decr by one for acurate cnt 
09 16 AS 84 1 D1 8 BBC #TFSV_OWNSELT,TFSB_SELTIM(R5),8$ ; Branch if we do not own Line 
0189 cS 02 } DIC BISB #TFSM~SACK, TF$B_SFLAGS(RS) ; Set to send the ACK 
16 A501 D271 4 BISB #TIFSMISELECT,TFSB_SELTIM(RS) |: with the selection timer set 
2 aS D25 5 8$: MOVL Re oRO : Save the TF block address 
1 °® D28 96 MOVL R1,R ; Get UCB address in R 
51 11 A3 DO 0D2B 280 MOVL ret TQE_STS(R3),R1 ; Set TQE status to driver 
50 i}! 16 OD2F 38 JSB aTF$K_DEV_TIMER(RO) :; Inform driver of more work 
01 31 4 3 10$: BRW DDCMPSTIMER_END 
16 AS 4 E% op 3 ei 208: BBC Sar eater ah 2 1F oenee TEMES) © ; Branch if we do not own Line 
16 AS 01 88 DSA Hf BISB #TFSM_SELECT, TFS$B_SELTIM(RS) 3; with the selection timer set 
0189 cS «602)—BB SCO : 14 BISB #TFSMISACK, TFSB_SFLAGS(RS) : Set to send the ACK 
EO (11 B08? HF BRR $ 
0D45 B19 DDCMPSSELECT: 
50 e2000900 "sr DO 0045 2818 MOVL G*EXESGL_ABSTIM,RO 3; Get time 
0D AS 50 D1 OD4C 2819 CMPL —s- RO, GF $L_SELEND(R3) : If NEQ then timer hasn't 
6 15 ODS 820 BLEQ : expired - Compare seconds 
11 A3 8000 8F . 8b3 821 pieue SLSR, TARERPD GF SL, 708 STS(AS? ; Set the select time has expd 
51 O1BE C5 a ODSA § MOVAW TFS$B_STO(R5),R1 : Incr the seltimeout field 
057% BEDO 30 2E : : Boer DOCRPSINCR_ COUNTER 
03 = €1 Opes 8 $ BBC #TFSV_RCVDET,- ; Branch BS RCV was detected 
07 16 A5 0067 28 TF$B SELTIM(RS) .5$ 
01 AB OD6A 2828 BISW2 #TFSA_NOREP SEL,- ; Else set bit no reply to sel 
01BC & 1 945 ; 4 ane Yesu_STOBC (RS) 
0 AB 0071 He 5$: BISW2 #TFSM_INCREP_SEL,- ; Set attempt to reply was 
O1BC C 0073 3 TFSW_STOBC(RS) 3; detected 
06 EF 0D76 2833 7S: EXTZV #DDCAPSC_SEL_THRS,- : Extract the field 
0 go78 : 4 #DDCMPSC_ THR’ SIZE,- 3 to increment 
54 015 C5 007 5 TFSW_THRES(RS) ,R4 
54 96 O0D7D § INCB RG ; Incr the thres error counter 
54 iM 4 444 Haas TER CHP OC THe AN $ nes the thres been exceeded 
; No 
11 AS) (010s ABCD BG : BISW2 #OLKSM_TRNSERR,GFSL_TQE_STS(R3) ; Report that thres exceeded 
ee D4 goes rk CLRL RG ; Clear the field 
06 4 FO ODBA 41 10$: INSV R4 ,#ODCMPSC_SEL_THRS,- 3; Insert the count 
03 D&D 4¢ #OOCMPSC_THR SIZE,- 
e1c5 C5 : . re TFSW_THRES(R5) 
p91 45 ; Ince the number of times that a seietion interval has timed out on this 
+4 rt] 3 station 
08 a 96 0D91 $8 INCB GF$B_CURSEL(R3) 
54 6 GA 451 $3 MOVZBL GFSB_STATE(R3) ,R4 ; Get protocol state 
097 1 ; Branch to handle selection timeout according to the state the protocol 
+44 § 3; is currently in, 


<9 | 
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2 YP ag 
3 ¢ Nepectoallye bes a ; Action 
097 <DDCMPSC_STA_RUN $5$>.- 
p97 4 <DDCMPSC_STA_IST 5$>,- 
p97 3 <DDCMPSC_STA_AST $033 += 
D97 38 <DDCMPSC_STA_MNT $>,- 
> 
DAS BUG_ CHECK NOBUFPCKT, FATAL 
: T state, which means that the device hasn't received 
vy v4 : hays DB tre Be poses’ of Life from the other end then use , 
DA? 2865 ; the STRISEL. This field was put in to allow for more time on the initial 
DA7 66 : startup for things Like dial ng a call over real modems. If the 
ODA? 89 : SELECTION TIMER Yor the device is set to 3 seconds then using this 
ODA? 68 ; field will give the user about 60 seconds to dial the call before 
BOAg $3 3; the Line is dropped. 
DA ; Set that a STRT must be sent 
54 0 GA DA7 eri 15$: MOVZBL #DDCMPSC_STRT,R4 ; . Bg Rene ky det 
28 AS) «(08 AS)s91s(ODAA 78 CHB FSB _CURSEL (RS) , GFSB_STRTSEL (R3) Branch on L Ly fe 
a5 He 4 74 BISW2 #DLKSM_PRSTERR,GFSL_TQE_STS(R3) ; Report to driver a peristant 
11 a3 O A8 0DB1 5 BLKSA. ° _TQE_ 
2 11 OBS 2 18$: ERB 3 
54 07 9A 0DB7 ery 20$: MOVZBL SPRCOE STACK MS ; Set that a STACK must be sent 
or 1 oe 143 BRB 2 
: TIMC(RS) : Set to send a select flag 
"7 8? + gf ppes go ines SOVeBL sUDERPRECAcR ROT ee , 3) 3 Caen A egg adherend nk eae 
07 AS O8 AS 91 apes Ht) 278: care F$B_CURSEL(R3) ,GFSB_MAXSEL(R ag AE Sean eek iaaebed 
se ie 4: ; BiSW2 M#DLKSM_PRSTERR,GFSL_TQE_STS(R3) ; Report to driver a peristant 
11 AS. O02 AB ODCA Bee abl . mh 
OE 11 $2 BRB 
: ‘ ; Clear error reg 
Roe BH Ba [i 
reas 8 +i $33 BSBwW DOCMPSQUEUE _XMT : sueue the transmit 
51 BED DD7 90 POPL : jaitlin womans 
8 3 ts DDE 33 35$: MOVE Se este : oy Block eddress 
39 3} D DE 38 “MOVE saRTeR : Get UCB address in RS 
i Set status 
oi $0 4 00 DES 35 ney” ore Moe Timea cRG ; Inform driver of more work 
” BA 11 QDEB 36 BRB DOCMPSTIMER_END 
DED 9 
DED 98 DDCMPSREP_TO a 7 eal ieee 
eh gs BD Bore 3 MOVAL GEO RTDOCReD Ag : Get the addr of the queue 
33 Ag BO FB of MOVL TFSQ"RTOQ(R5).RB 3; Get the first entry on queue 
7 58 ¢? Dt ore 303 CMPL R4,RB ; :; Branch on EQL queue is empty 
10 as 59 i} ai 9 eee AQ AMTOSL_TIMEND(RE) : Branch NEQ timer hasn't exprd 
1 3 : ; 3 3 PLEA @*A<R1R4> ; Save RI —n 
a 9 29 $ MOVZBL #DDCMP$C_REP,R4 : Set up to queue the 
“ah BUG ae Be Poa 
BSBW DOCMPSQUEUE _XMT ; Queue the 
res BA ET 310 POPR #*A<R1,R4> ; Restore R1 
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AB 0E1 911 BISW R7,GFSL_TOQE STS(R3) 
3C 3 16 MOVZyL TF$W_REPWAITRS) 3 
Ci O€1B 2913 108: ADDL3 XMTQSL_TIMEND(RS),- 
Ele 914 RO, XMTOSL_TIMEND (RB) 
DO OE 915 MOVL  (RB)_RB 
D1 0E24 316 CMPL RG RB 
12 0€27 291 BNEO ~=_- 108 
D 0€29 318 PUSHL 1 
E 91 MOVAW TFSB_LRTO(RS),R1 
E 920 BSBW © DDCMPSINCR_COUNTER 
E 901 BSBW  DDCMPSINCR-XMT_THRS 
BEDO OF § 9 § POPL RI 
N CU 
96 : ? 3 ; INCB —s TF $B_CURRTO(RS) 
91 OE3C 2925 CMPB ss TF $B_CURRTO(RS),- 
ESF 29 : TF$B-MAXRTO(RS) 
19 0€&41 29 BLSS 208 
94 0&43 29 : CLRB_ —s- TF $B_CURRTO(RS) 
AB pees 9 BISW2 #DLKSM_PRSTERR,GFSL_TOE_STS(R3) 
DO OE4A 2930 20S: MOVL R5,R0 
DO O&4D 2931 MOVL R1_R5 
DO 0E50 29 : MOVL  GF$L_TQE_STS(R3),R1 
16 E94 ? ; JSB aTFSK_DEV_TIMER(RO) 
bf es 338 DDCMPSTIMER_END: 
BA 0E57 29 : POPR #*M<R2,R3,R4,R5,R6,R7,RB,RI> 
E9 0€58 33 BLBC ~=—E.—s«ROO, SS 
DO OE DE 938 MOVL  TF$A_GFB(R4),R1 
EO O0&62 2939 BBS #GF$0_TIMER_ RUNNING, - 
0E64 2940 GF$6_TIMER STATE(R1),10$ 
43 0E67 2941 SS: MOVAL G*EXESAL_TQERNOREPT,RS 
05 OE6E 2942 10$: RSB 
OE6F 294 
OE6F 2944 
OE6F 2945 


AX/VMS Macro v04-00 
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Pa 68 
9 85) 


Set any errors on queueing 
Get reply wait time 
Get new expiration time 


Get next entry 
Branch EQL end of queue 


Save the register 

Incr the num of local reply 
timeouts 

Incr the XMT thres counter 
Restore the register 

Ince the number of times that 
a RTO has been snt on the msg 
Branch on LSS because the max 
RTO has not been reached 


Reset the cur num of RTO's 


; Report to driver a peristant 


Save TF block address 
Get UCB address 
Set TQE status to driver 


; Poke the device with work 


Restore registers 

If LBC then device shut down 
Get GFB address 

If BS then timer running 
Else make sure the old 

TQE is not returned to the 
caller 


pecs rssh gi 
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EGF 2947 
+¢ 94 -SBTTL Reply timeout clock queues and timer handling 
| EGF ; 0 ; TIMER - Reply and selection timeout clock 
E6F 29 ¢ : This routine is responsible for the real time clock associated with this 
E6F 2955; pretece}. The TQE is part of the TF block hence no need to worry about 
EGF 2954 ; allocating and deallocating it. The TQE is set up only once at controller 
EOF 2955 ; init time. It ticks once per .5 seconds while the system is running. In this 
E6F 328 ; way the driver can use the operon clock to time selection intervals and 
E6F 2957 ; reply timeouts, but not use large pieces of system non=paged pool. Half 
BEgE 928 3 duplex and aultipoing stations use the TQE as aselection timer. Full 
geet 820 ; duplex uses the TQE for a reply timeout clock. 
+3 4 961 : This is also reponsible for —— messages for reply timeout. Handling 
+e 306 : these timeouts is different for each type of station. 
Ofer 964 : FPC 2 Real time clock 
OE6F 2965 ; HPC = End of next selection interval 
OE6F 2966 ; FMC = Before next selection interval 
OE6F 2967 ; HMC = Before next selection interval 
OE6F 2968 ; FMT = Before next selection interval 
OE6F 399 3 HMT = Before next selection interval 
SE 0 
OE6F 376 : INPUTS R3 = Address of the GF block 
OE6F 29735; RS = TF block 
+344 are 3 R8& = Address of messge to reply timeout 
+344 44 : OUTPUTS R3.R5 and RB are preserved 
+e 4A 3 Addition or deletion form the RTO 
EGF 979 BDCMPSINS_RTOQ: 
1F =6BB egf 980 POSHR #*M<RO,R1,R2,R3,R4> ; Save registers 
50 00000000'GF b0 0E71 2981 MOVL  G*EXESGL Agst 1M.R0 : Get the addr of timer buffer 
51 18 A5 C OE78 2982 MOVZWL TFSW_REPQAI(RS),R1 : Get reply wait time 
10 a8 51 50 (C1 bert ; 2 ADDLS = RO, RT, XMTOQSL_TIMEND(R8) ; Set time to expire 
3g $s AB 9E OE81 2985 MOVAB XMTQS$B_MSGHDR(RB) ,R2 g get message header 
5 8 AS 4 E85 29 $ MOVAB TF$Q_RTOQ(RS),R3 ; Get start of reply timeout q 
50 53 OD E89 29 MOVL oR ; Save address on Fy 
60 3 » : ‘ 2 8 oe RO, (RO) : If EQL then empy queue 
50 O4A D E91 2990 5$: MOVL 4(RO),RO : Get previous entr 
53 50 b| 34} $31 mr . R3 s if EBL then end oF queue 
5 ‘ AO 9 EVA 299 MOVA XMTQS$B + rrvte t R1 :; Get entries message header 
54 06 A2 4 Al 8 EVE 2994 SUBB MFDSB_RUMB(R1), FO$B_NUMB(R2) ,R4 :; If LSS then do not queue after 
13 bene 5996 Beara 
9 ; EAS 999 10$ weave (RB) , (RO) ; Put on RTOQ 
16 A 04 EAB 44 B1SB8 #@TFSM_ TIMER, TFSB_SELTIM(RS) : Set timer running 
1 OA af +} gat 99 oe UATOSE_OUFTYPCREY ,S"#DYNSC_BUF 10 : If EQL then correct buf 
eB ? 15$: BUG K este FATAL / 
1F - ih § 20$: POPR #°M<RO,R1,R2,R3,R4> ; Restore registers 
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sDDCMPSREM_RTOQ = Remove ACk'd XMTs from timer queue 
This routine is called to stop reply timing on ACK'd messages. First all 


ee entries are removed from the queue. If then queue becomes empty the 
p ‘. ndicating the timer is running is cleared, otherwise the bit is 
eft on. 


INPUTS a = Address of the GF block 

R5 = Address of the TF block 

R8 = Address of the receive message 
OUTPUTS R1,R2,R3,R5 and R8 are preserved 


DCMPSREM_RTOQ: 


Dee Se Oe Oe Oe Oe Se Se Se Se tee 


SO a we ad a Ws se 


8B POSHR #*M<R1,R2> 

OF 2$: REMQUE a@TF$Q_RTOQ(RS),R1 ; Get the next entry on RTOQ 

1D BVS 1 ; If VS then queue 9 

4 irae XMTQ$B_BUFTYP(R1) ,S*#DYNSC_BUFIO ; If EQL then correct buf 
BUG_ CHECK NOBUF PCKT, FATAL 

DE 5$: MOVAL XMTQS$B_MSGHDR(R1) ,R2 ; The addr of the msg hdr 


3; Check the condition NUMB <= A 


SUBB3 = TFSB_A(R5) ,MFDS$B_NUMB(R2) ,RO 3 Branch if A < NUMB 
BGTR 2 3; No more to take off queue 


CLRB TFS$B_CURRTO(RS) ; Clear the count of rep's 
BISwW #OLKSM_XMTCMP,R7 ; Inform the driver there is 
; an 1/0 to complete 
~ FPSSR Dy TOP ER 2 PRPC Ie oe :; If EQL then correct buf 
BUG_CHECK NOBUFPCKT, FATAL 
8$: NSGUE (R1),@TFSQ_CMPQ+4(R5) ; Insert request on CMPQ 
MOVZWL MFOSW_CNTFCG(R2),RO 3; Get the count 
BICW #<MF OSM ECT!- ; Clear if flags are set 
MFDSM_QSYNC>,RO 
TFSL_BOMSGX(RS Incr the number of msgs XMT'd 


RWW WRHAMMMMMMOCOOIVVOOCOCOCOWWWwIwIwIwwIwII0TNNTNINI0 


FNS OO LOO DONINNG KDW IMININMIM KW WLMIMAOOMOOOAOAAMAAAOONO 


Incr the number of byte XMT'd 


INCL Gx (R5) 
ADDL2 RO, TFSL_DBYTX(RS) 
BRB Get next entr 


a iain te ee ee ALLARD Ahhh AA AAD BALA RAL RAL AA AAL ALAA AAA BAL AALAALAALAALAALAALAALAALAALAALAALAALAALAALAALAAL AA) 


PES OD NO NE WINS OD NA NE WN  O ODN NEW CO OD NOU EU" OOOO 


ow OD $e Ao wUuo —-0oO PO—-@ 


SOOOOCOCOOOOOCOCOSOSOOSOOOSOSOSOSSOSOOOOOSOSOOOOS OOOO OOSOOOOOOOOOOO 


SOOCOCOSCOSOOOOOOCOOOOOOOOOOOOOOOOOOOOOoOO: 


4 
4 
" 
44 108: BICB2 8 #TFSM_TIMER,- Set timer no Congr running 
4 TF$B_SELTIM(RS) 
4 POPR #°m<Ri ,R2> 
A ‘ RSB 
: : 208: CMPB XMTQSB_BUFTYP(R1),S*#DYNSC_BUFIO ; If EQL then correct buf 
11 3 BUG CHECK NOBUF PCKT , FATAL 
15 308: INSGUE (R1),TF$Q_RTOQ(RSS : Insert the entry back on RTOQ 
19 305 POPR #*M<k1,R25 
18 3 RSB 


DOCMP - Software DDCMP 16-SEP-1984 :50:47 VAX/VMS M 
Halt : : iets 88: 9:35 


be 
v04~000 “ ; o V04-00 Page 71 


cr 

DRIVER. SRCIDDCMP-MAR; 1 (68) 
-SBTTL Halt 

;DDCMPSHALT 


: This routine halts the protocol. The only action nee the protocol 
; is to stop any real time clocks which may be running and returns all 
; outstanding transmits. 


INPUTS Re = Address of the GF block 
R5 = Address of the TF block 
R8 = Address of the data message header if given 


: OUTPUTS R3 and RS are preserved 
; R6 and R7 contian return status to driver 
6 


OOOCQCGOOCGCOCCOCOCOOCOOOCOOOOOOOoS 


Dt A DARD 4 tes try eet etre PRP PL SN NINA AAA AAAAOAO IN 
DREW OOD NA UNE WN 0 ODN NE $$ OOO NOUNE UO " O0OOn 
@ 
74) 
wo 
c 


DCMPSHALT: 
56 3C MOVZWL S*#DLKSC_RETINFO,R6 
04 CLRL R7 
0189 3 Qe CLRB TFSB_SFLAGS(RS) ; Clear tlogs 
8 rf TSTL R8 ; Branch NEQ because this halt 
1A 1 BEQL 10$ 3 wee net initiated by RCV'ing 
3; a 
F8FS) = 30 DOCMPSCHK_HDR : varee, Rane sure the message 
3; was o 
57 o5 ° TSTL R7 ; If EQL then message CRC ok 
93 13 BEQL 5$ 
F2FB : BRw DDCMPSERROR 3; Else ignore message 
57 0040 8F C 5$: MOVZWL #OLKSM_STRTRCV,R7 : Assume that a STRT was rcvd 
68 90 af 9 CHPB #ODCHPSC_DLE.MFDSB_MSGID(RB) ; If NEQ then a STRT was rcv'd 
57 0080 BF xC MOVZWL #DLKSM_MNTRCV,R7 ; Else a DLE was received 


10$: 
DDCMPSMAINT_ HALT: ; Complete XMT's when MOP mode 
B1CB2 sTPSA TIN $8_SELTIM(RS) Clear bit to set timer off 


AS 04 E 
ECR 


DOVHRON DW LNIMO ODE VAWUE OM DWM OOF ODO NN BOHOOOOOOOOOAAOOOONO 


Oooo 
Se, tee, tees Bem. fom a Bn a Dis ee Bm Bn Bi Bi i Bie i es es Be Bs Be Re Re Rs Be Bs Bs ee es es Be, Be Be De De es Be Bs Be i ee Be Re Be Be Be Be Re Be eB Bs Be Be Be 
ee OE ARaetetetadadadatadaderedatatate 


16 BA R,TF : 
52 Oise C5 DE MOVAL TFSL 5§ Re ~ ; Get TOE address 
20 A2 00000000 159C380 BF D MOVa #DDCAPSC_STPTOE TQESQ_DELTA(R2) ; Set delta for halted progecel 
51 3885 OF 20$:  REMQUE aTF$Q_RTOQ(RS).AI : Send all outstanding XMT's 
; to 1/0 complete 
10 1D BVS 258 : If VS then Q empty 
13. «OA at 3 beer XMTQS$B_BUFTYP(R1) ,S*#DYNSC_BUFIO ; If EQL then correct buf 
34 BUG_ CHECK NOBUFPCKT, FATAL 
2c B5 61 Of 09 228: Insgue (R1) ,@TFSQ_CMPO#4 (RS) 
1 ? $23: DSBINT GFSB_DIPL(R3) ; Lock out device interrupts 
51 3085 OF 1 ¢ 0$: REMQUE @TFS$O_XMTQ(RS) RI ; Send all outstanding XMI's 
1 ; to 1/0 complete 
18 1D 104 BVS 40% ; If VS then Q empt 
13° (OA H } : ! 5 Hip MTQSB_BUFTYP(R1),S*#DYNSC_BUFIO ; If EQL then correct buf 
ee $ BUG_ CHECK NOBUF PCKT FATAL 
0¢ £0 ; 1 35$: BBS #@XMTQ$SV_CONTROL,- ; If BS then control aoe 
€B IF A 1 XMTQ$B FLAG(RI) - 308 ; don't sendto 1/0 complete 
2c 65s 461 E A 19 INSQUE (R11), aTFSQ_CMPQ+4(R5) 
10 a3 ; ‘ 17 ance {PSO _ROCHTTCRS) ; Free the next spot on queue 
: ; Enable interrupts 
3 118 408 ENBINT Enable int t 


covovcvrvr;r;rscyZ ss: 2 Q 


047000 A we checee $SEp=198e 80:77:52 ERIVER.sReIpCMP.man:1 = "29° (28) 


penoue 9350. XMTOVF (RS) ,R1 
XMTQSB_BUFTYP(R1),S*#DYNSC_BUF IO’ ; 


HECK NOBUFPCKT FATAL 
liga CMPO+4(R5) 


: zon ats ab Bg overflow q 
if £OL then. correct buf 


o-o -—-0o-oO & 
- 
Se Ions ca Iemca Deca Dena a ali 
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- Software DDCMP _” 16-SEP-1984 90:30: 7 ary hey Macro Vv04-00 Page 73 F 
Maintenance mode -SEP-1984 00:11:52 (CDORIVER.SRCJDDCMP.MAR;1 | (69) ; 
-SBTTL Maintenance mode 
FAD ¢ 3; DDCMPSMAINT = Maintenance mode 
FAD H 7 © 
: i d when the protocol is in maintenance mode o- when a 
FAD i : na intenance: asp ion Geen received ot must be sent. matncenencs sade 5 
44 ! 3 ; performs only the framming and Link management portions of D ° 
; R3 = Address of the GF block 
FAD : ! : nett, Re . Address of the TF block ¢ 
FAD 31 j : RG = Contain the action to be executed 6 
FAD 3134; R7 = Any bits set then message was in error G 
FAD 3135 : RB = Address of maintenance message header G 
OF AD 1 $ : R9 = Contians the number of bytes to send 6 
FAD 1 g ¢ 
; -R7_= Contain status of the action 
4 i § : — RS’ RS and R8 are preserved ¢ 
OFAD 3140; R9 is the size of the maintenance message received ¢ 
13 
OFAD 149 : The XMTQ may have an entry on it. ¢ 
56 02 91 OFAp 128 sctteteey = S*#OLKSC_XMTMSG,R6 ; Branch if EQL xmtmsg ¢ 
O8 iz ores 129 mOVoUL S*#DLKSC_RETINFO,R6 :; Set up return to driver ¢ 
sg 57 4 OBS 148 CLRL R7 - 3 5. 0er ot pot bres . 
F8g7 i OFBA 130 Fete | ines : Branch NEQ errors in header : 
e oF FBC 3151 NEQ 30$ “ ES, ¢ 
oe 68 oe OM, cae t Hot coveatt {te 
°9 000 BF AA ORE? 8458 sped STG 5 Sh eke conutur tuaniand ¢ 
\y < = oO 
ian 2 CP oc 
: : Set return to driver 
- 98 a Orb 139 _— om * daaieanleonbagms 3 Fleer’ all set bits, ¢ 
63 01 91 OFD3 3160 CMPB #ODCMPSC_STA_RUN, GFSB_STATE(R3) : Seaeteediog no XMT's are . 
83 6 ay 183 BSBu SO CMPSRAINT HALT : Branch to send XMT‘s to comp G 
54 90 BF By FDB 188 25$: MOVZBL +9 pag Mt rob : ah maint msg : 
ae 38 ree 188 tt) yes es : Branch NEQ error in msg : 
a ry FE 16 BNEQ 30$ Se ¢ 
” 9¢°° ‘ As at 18% oS: PAwe POO C ROBE eth fay .GFSB STATE (R3) : Be net set the bit is already G 
on EA NB Ricmsemeser | | Estee iectat Stn mee 
FOAM FF 1 BISW #OLKSM_MNTRCV,R ; Inform driv 
ee As Hp 173 35$: RSB S 
it 178 sDDCMPSCMPMNT = Complete the maintenance message . 
: & 
; Thi tine is called after the maint message has been sent to put 
Fe 176 F 1 tyre ben on the CMPQ for 10 completion. A 
FF 1 3 : 
: A ss of the TF block 
Hh 158 : mere RB : ee the of the intea message : 
FF 180 ; 


DOCMP oftware DOCMP SEP-1984 00:5 a4 AX/VMS Macro v04-00 Page 74 
-000 Rated mode i et ot 8837 DRIVER. SRE €4D DDCMP.MAR;1 . (69) 
FF 181 OUTPUTS R6,R7 contain return status for driver | 
FF 1 § ALC other registers are preserved 
FF6 31 bocnoscnpm 
56 gs C OFF 184 VZ2WL  $*#D nee areline oR6 ; Set up return status 

57 0400 C OFF 1 ¢ Rov WL 7 a : for driver 

2c 8S) = 68 43 0D : NS rereheas conPaes (RS) ; Put XMT in queue to comp 
1908 31 
100 1 
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DDCMP - Software DDCMP 16-SEP-19 35 AX/VMS Macro v04-00 Page 75 
v04-000 Return error counters moet Yi 88 79: $5 DRIVER.S REID DDCMP.MAR;? | ° (70) | 
1 19 -SBTTL Return error counters 
: 13 SDDCMPSRETERR’ - Return protocol error counters 
1 192 ; This routine is set up to return and/or clear error counters requested by 
1 195 ; pe ante"? program. It will return the parameters in the buffer specified 
! 138 s here is no buffer then no parameters are returned. 
1 138 3 INPUTS: R3 = SFB address 
169 199 ; RS = TFB address 
1 0: = Action asked of protocol 
199 1°: R? = Error counters to return 
! § : R8 = Address of buffer to return in which to return counters 
100 4 : OUTPUTS R6,R7 contain the return status 
100 82 $ R8 contains the error counters 
100 $i 3 The counters may or may not be cleared depending on the request 
18 8 ; R3 and RS are preserved 
199 $9 BDCMPSRETERR: 
18 57 ~=s«¢01 —1 100 10 BBC #OLKSV_TRIB,R7,10$ 3; If BC then assume GLOB cntrs 
28 id 198 11 PUSHR #*M<R3,R5> ; Save registers 
56 = 1E AS 1009 \¢ MOVZWL TFSW_TEB(RS) ,R6 ; Get size to transfer 
58 D5 1000 1 STL R8 : If EQL then no buffer 
96 1 100F 14 EQL 5$ : specified 
68 018A C5 6 28 Ist 15 MOVC3§ R6, Yd oe , (RB) : Put counters into block 
$5 BA 1017 16 5$: OPR a*n A 3; Restore registers 
1D 57 0 + 1019 17 BBC #OLK$ EAR,R7,20$ : If BC then do not clear cntrs 
018g 0 101D 3218 BSBwW ROLKSY CLEAR TCTRS : Else clear counters 
1 11 1989 19 BRB 20$ 
2 ee 10 0 10$ PUSHR #*M< 3: Save registers 
56 OBA C 1024 1 MOVZWL Gr Su Reem eR), R6 : Get size to transfer 
58 o05 18 8 § TSTL 3s If EOL then no buffer 
9? 13 102A BEQL $ 3; specified 
68 1F A3 6 28 102C 4 mMOvVC3 RE. v4 ens ay , (RB) : Put counters into block 
BA 1031 5 15$: POPR 3; Restore registers 
03 57 0 1 10 ; $ BBC Gorey’ CLEAR,R7,20$ : If BC then do not clear cntrs 
0 10 BSBw DDCMPSRESET GCTRS 3; Else clear counters 
56 ge C 103A 8 208: MOVZWL OF DLKSC RETINEO, R6 ; Set up return to driver 
57 2000 8F A8 103D BISW2 #DLKSM_ERROR,R7 ; A error block has been passed 
104 0 3 to driver 
05 104 1 RSB 
104 2 


2 «CO 
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= Software DDCMP 


Return error counters 


SSEp=19be 00:11:52 


L 15 


AX/VMS Macr 
DRIVER.SRCJDDCMP.MAR; 1 


cro V04-00 


-SBTTL Routines to handle sending and logging NAK's 


104 4 
Be Bu 
104 5 ;DDCMPSLOGNAK 
104 8 : 
104 3 
19c8 $5c) 
104 4g : INPUTS 
104 43 ; 
ied ts 
104 ¢$ 3 OUTPUTS 
104 47 ;- 
10¢8 $509 | 
18 50 BDCMPSLOGNAK: 
00 EF 104 51 EXTZV 
0 9 26 
50 O2A 1 #8 5 
50 3 91 «104 54 CMPB 
B 13 104C 55 BEQL 
104E 26 
0151 30 104€ 5 BSBW 
50 01 91 1051 58 CMPB 
OF 12 1054 59 NEQ 
O1AA C5 H 1056 60 MOVAW 
0078 0 1058 61 SBW 
01 AB 105€E $¢ BISW2 
— 3 11 1083 oc ARB 
50 0 91 106 65 108: CMPB 
21 12 1398 96 BNEQ 
O1AA C5 ; 106A 6 MOVAW 
0064 1 of 68 BSBW 
08 AB 1072 +4 BlSw2 
O1AB fe an don? 8571 BRB 
: Vv 
O1AA 1079 72 208 MOVAW 
0055 107€ 7 BSBW 
04 A8 1081 74 BISwW2 
01A8 2 1083 75 
ae ROOF 18S 8598 ORES 
50 8 91 1 4 30$: CMPB 
| 7 BNEQ 
0189 §3 ; 1 ? MOVAW 
00 109 SBW 
0 AB 109 g BISw2 
0187 C5 ' an ? 
3 11 109D 5 BRE 
ms. % 91 1098 § 40$ CMPB 
OF 12 10A BNEQ 
0189 C5 ; 10A 3 MOVAW 
002A 10A9 BSBW 
2 AB 10AC 0 B1SW2 


This routine is called when a NAK is received to increment the proper 
counter associated with the NAK subtype. 


R3 = Address of the GF block 
RS = Address of the TF block 
R8 = Address of teh received block 


Re = NAK type if NAK sent in reply to a REP 


R5,R8 are preserved 


DDCMPSINCR_XMT_THRS 
S°4DDCMPSC_NAKT. RO 
TFSB DEO(RS),R1 


DCHPSINCR COUNTER 
TF$W_BEOBC(RS) 
“#DDCMPSC_NAK2,RO 


0 

TF$B_DEO(RS) RI 
DDCMPSINCR._ COUNTER 
#TFSM_ODCRE,- 
TFS$W_DEOBC (RS) 


TFSM_OREPS,- 
Su DEOBC (RS) 


RBE (RS) ,R1 
PSINCR_COUNTER 
M_RBUF -NAVL,~ 
-RBEBCTRS) 


$ 
SDDCHPSC_NAK16,R0 
$8_RBE(RS) RI 


CMPSINCR_ COUNTER 
RBUF ~SML,- 


aon —8909 2472-8 
“O70 2O V=4O"O 20OO™ 


NAK type 


Branch EQL because XMT 

thresholds aren't counted 

on these NAK's 

Incr XMf threshold counter 

Branch NEQ not reason code 1 

ince the data error outbound 
e 


Set bit that NAK was set for 
a header CRC 


Branch NEQ not reason code 2 
ince the data error outbound 


e 
Set bit that NAK was set for 
a data CRC 


ince the data error outbound 
° 

Set bit that NAK was sent in 
reply to_a REP 

Set up R2 with NAK type 
Branch NEQ not reason code 8 
Incr the remote buffer error 
field 

Set bit that NAK was sent 
because a RCV buffer was 

not available 

Branch NEQ not reason code 16 
incr the remote buffer error 


° 
Set bit that NAK was sent 


ro 8, 


m 15 
DBCMP - Software DDCMP SEP=1984 
v04-000 Routines to handle sending and logging n 23Eb= 48 4 
0187 CS A 3 TF$W_RBEBC(RS) 
2 10647 } 3 RB 70$ 
50 9 : 34 50$ CHP S*#DDCMP$C_NAK9,RO 
51 2B A 3 1 3 9 MOVAB GFS$B_RSE(R3),R 
001 108C 329 BSBW DDCM RPSINCR. COUNTER 
01 Ag 10BF 98 BISW2 #GFSM_RRCV-OVR 
26 A i c 99 F$W_RSE “BCTRS(R3) 
50 M 9 ¢ 64 60S: CHPB “#DDCMPSC_NAK17,RO 
51 23 a3 9E 1Sch 08 MOVAB GF$B_LSE(R3),R 
0005 30 10CE 4 SBW 3s DDC MP TNCR COUNTER 
08 AB 1001 3305 BISW2 #GFSM 
21 A 1005 06 GF $u_ cite SBCTRS(RSS 
05 10D 07 70$ RSB 
1006 3308 


Oo:11:32 tp 


X/VMS Macro v04-00 

RIVER. SRCJDDCMP.MAR; 1 (72) 
because a RCV buffer was 
too small 


; Branch NEQ not reason code 9 


Incr the global remote 


; station arver counter 
; Set bit t 
; because of a RCV overrun 


that NAK was sent 


Branch NEQ not reason code 17 


Incr the global local 
station error counter 
Set bit that NAK was sent 
because of a RCV overrun 
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DDCMP = Software DDCMP P=1984 00:50:47 VAX/VMS M 
vOL~000 e Fp= 1984 005% +: 


16S o V04-00 Pa 78 
Routines to handle sending and logging N BSE =19 fe (74). 


r 
:52 CORIVER.SRCIDDCMP.MAR; 1 


10D 10 
! +4 \} sDDCMPSINCR_COUNTER = Increment the given counter by one 
1 + ig : This routine a ag the byte counter petates to by R1, but it will hold 
! + i ; the counter at 255, instead of allowing the counter to wrap. 
1 D6 16 : INPUTS: 
: pe : $ R1 = Address of counter if increment 
1 D6 15 : OUTPUTS: 
: + y 5 RO is destroyed 
19pe g SDCMPSINCR_COUNTER: 
50 61 QA 1906 MOUZBL (R1),RO ; Get current count 
20 96 10D 4 INCB RO 
0 1D 1008 5 BVS 10$ :; If VS then at Limit 
61 50 90 10DD § MOVB RO, (R1) 3; Else increment counter 
0 ey f 10$: RSB 


eK EOARBMHAOOD 2 BOK Ke TOVMMOCCOOZ EB KAO He TOVMOCODS BO Ke ee TOMMOODS Be Kee TA AMoOoAMm 


DOCMP - Software DDCMP 
v04- Routines to handle sending and logging N 
10€1 9 
10E1 p++ 
10E1 § ; DDCMPSSENDNAK 
10E1 $ 
10E1 4; 
10E1 5s 
10E1 § 3 
10E1 3 
10E1 os 
10E1 39 ; INPUT 
10E1 40 ; 
10E1 41; 
10E1 tg : 
10E1 $ ; OUTPUTS 
10€1 44; 
10E1 $07 s 
10€1 46 ; 
10E1 3347 BDCMPSSENDNAK: 
56 08 3C 10€1 3348 MOVZWL 
57 04 10€4 3349 LRL 
10E6 3350 
19 57 01 €0 10€6 3351 BBS 
9 57 8 EO 10EA 326 BBS 
957 O EO eg 35 BBS 
49 57 04 €0 10F 354 BBS 
59 57 OS £0 10F6 3355 BBS 
72 57 06 €0 10FA 3356 BBS 
10FE 3357 ' 
57 046 3C 10FE 3358 MOVZWL 
7E 11 #1101 3359 BRB 
01 90 1103 3369 10S: MOVB 
0188 C5 1105 3361 
51 O1AF C5 H 1108 306 MOVAW 
FFC6 0 110D 4 BSBW 
01 A&B 1110 64 BISW2 
O1AD C5 iis 365 
59 11° «1717 366 BRB 
1117 3367 
08 90 1117 3368 20$: MOVE 
0188 C 1119 $57 
51 O1AF C5 Hi 111¢ 0 MOVAW 
FFB Q 1121 71 BSBW 
0 AB 1124 i BISw2 
OAD C 11 8 7 
45 : i ae | 74 BRB 
08 90 1128 75 308: MOVB 
188 C 1120 A 
51 0184 3 43 11 9 7 MOVAW 
FF9E 11 4 BSBW 
01 As 1138 7 BISW2 
0182 3 113A 0 
1 11. +1130 1 BRB 
1 90 113F § 40$: MOVB 
188 C 1141 
51 184 4 ; 1144 4 MOVAW 
FFBA 1149 5 BSBW 
02 AB 114¢ 6 BISwW2 
i 
| 


SSEP-198 


B 16 


error it received when receiving 
senting of the SNAK field for fiv 


R3 = 
R5 = 
R7 = 


R3 
Rf? 


S*#DLKSC_RETINFO,R6 
R7 


and RS a 


= Errors 


#OLKS$V_HDRCRC,R7,10 
#DLKS$V~DATACRC,R?,2 


#OLK$V_RCVOVR 


R?,5 
#DLKSV=PADBYTE ,R?,6 
#DLKSM_CMDERR,R7 

0$ 


#DDCMPSC_NAK1,- 
TFS$B_NAKRSN(RS) 
TF$B-DEI(R5S) ,R1 
DDCMPSINCR_COUNTER 
#TFSM_IHCRE,- 
TF$W_DEIBC(RS) 

60$ 


#DDCMPSC_NAK2,- 
TFSB_NAKRSN(RS) 
TF$B-DEI(R5) RI 
DDCMPSINCR COUNTER 
#TFSM_IDCRC,- 
TFS$W_BEIBC(RS) 
60$ 
#DDCMPSC_NAK8,- 
TF$B_NAKRSN(RS) 
TFSBOLBE (RS) .RI 
DDCMPSINCR_COUNTER 
#TFSM_LBUF -NAVL,- 
Tf su CBEBCTRS) 


#DDCMPSC NAK 16 - 
TFS$B_NAKRSN(RSS 
TF$B LBE (R5) R1 
DDCMPSINCR_ COUNTER 
#TF $A_LBUF ~SML,- 


‘ 00:30:82 yes: Macro V04-00 


DRIVER. SRCIJDDCMP.MAR; 1 


This routine is called when “he driver informs the protocol of some 


the message. This routine covers the 


ive NAK reasons ( 
incrementing the counters associated with those reasons. 


Address of the GF block 
Address of the TF block 
The RCV message error from driver. 


re preserved 
encountered 


$ 
0$ 


0$ 


1,2,8,9,16) and also 


= Retrun information for driver 


Set up return status 
for driver 


; Return error 
Set the NAK reason to 1 
Ince the data error inbound 
field 
Set bit that SNAK set because 
@ header err was encountered 
Set the NAK reason to 2 
pret tne data error inbound 


ie 
Set bit that SNAK set because 
a data err was encountered 


Set the NAK reason to 8 

Incr the local buffer error 
field 

Set bit that SNAK set because 


; the local buffer was unavl 


Set the NAK reason to 16 

ancy the local buffer error 
ie 

Set bit that SNAK set because 


Page 79 


C 16 


- Software DDCMP 16-SEP-1984 90: 7:50:47 yey Macro v04-00 Page g0 
Routines to handle sending and logging N 5-SEP-1984 00:11:52 CDRIVER.SRCIJDDCMP.MAR; 1 (76) 
01B2 C5 1146 7 TFS$W_LBEBC(RS) ; the local buffer was too smi 
1D 11.=«4171 8 BRB 0$ ~ 
0 90 11 50$ MOVE sopcnrsc NAK9 ; Set NAK reason code 9 
0188 C 11 0 FS “NAKRSNCRS) 
5% A if 11 91 MOVAW ae ; Incr global orre? local 
FF? 115¢ 36 BSB BcRP TCR COUN + station erro 
63 01 1 115F 9 CMPB #DDCMPSC_STA_ hee GFSB. STATE(R3) ; Branch NEQ the SNAK is set « 
$6 \s 1162 94 BNEQ 3; only in RUN state 
1 AB 1164 95 BISwW2 oyien LRCV ; Set the reason for the SNAK 
21 a3 1166 36 GF $w_CSE Coe TRS (RS) 3; as local RCV overrun 
06 17. «116 9 BRB 
06 AB 116A 8 55$: BISwW2 thay LNRCV_OVR ; Set the that the NAK is 
21 A 116¢ 339 GF $w_CSE "BCTRS(A3) ; not sent 
OF ae 1 400 BRB ti ae 
54 «(0 9A 11 401 60$: MOVZBL S“#DDCMPS$C_NAK,R4 ; Set up se oan NAK 
F813 30 «:2117 40¢ BSBW DDCMPSQUEUE_xmf : Queue the 
5 95 1176 340 TSTB R?7 ; Branch on EQt all is well 
05 13 1178 3404 BEQL O58 
01 88 117A 3405 B1SB2 Ad - ; Else set that a NAK needs to 
0189 C5 117C 3406 188 meet A AGE RS) : be sent 
01 10 4117F 3407 65$: BSBB DDEMPSINCR RCV_THRS : Incr the RCV threshold cntrs 
05 aH 3 r+ 70$: RSB 


D 16 


- Software DDCMP at tb 4 OO: :47 \VAX/VMS Macro V04-00 Page $1! 
Routines to handle sending and logging N 5-SEP-1984 00:11:52 (CDRIVER.SRCJDDCMP.MAR;1 (78) 
11 411 
1 118 -SBTTL Routines to increment threshold counter 
i a1 ;DDCMPSINCR_RCV_THRS, DDCMPSINCR_XMT_THRS 
11 t1$ : These routines increment the receive or transmit threshold error fields. 
11 417 ; If a threshold has been exceeded the routine reports the error and 
1 ai8 ; clears the field. 
11 420 : INPUTS R3 = Address of the GF block 
8 ; 1 3 R5 = Address of the TF block 
17 4 : : OUTPUTS R3 and RS are preserved 
11 424 ; R7 will have a bit set if the threshold has 
1 " S$ ; been exceeded 
118 4 : HDCMPSINCR_RCV_THRS: 
51 oD 11 428 PUSHL ~ R1 
03 EF 1184 429 EXTZV #DDCMPSC_RCV_THRS,- ; Extract the field 
03 11 § 430 #DDCMPS$C_THR SIZE,- 3 to increment 
51 01¢5 C5 11 431 TFSW_THRES(R5S) ,R1 
51 96 11 4 ¢ INCB R ; Incr the thres error counter 
51 a + 1338 ; z cae #ODCMPSC_THR_MAX,R1 ; a the thres been exceeded 
3; No 
US AB 1182 435 BISW2 #DLKSM_TRNSERR,R7 ; Report that thres exceeded 
51 D4 «(119 436 CLRL RO ; Set the RCV threshold count 
13 3 hers 
03. = =§$1 FO 1197 3439 10$ INSV R1,#DDCMPS$C_RCV_THRS,- : Insert count 
03 119A 3440 #DDCMPSC_THR SIZE,- 
01c5 C5 1198 3441 TFS$W_THRES(RS) 
51 BED 119€ 442 POPL R1 
Rid fees 
1143 445 DDCMPSINCR_XMT_THRS: 
51 DD 1A rg PUSHL ~ R1 
0 EF 11A4 344 EXTZV #DOCMPSC_XMT_THRS,- ; Extract the field 
0 11a¢ i. #DDCMPSC_ THR SIZE,- 3: to increment 
51 01c5 € 11A 44 TFSW_THRES(RS) ,R1 
51 96 11AB 5450 INCB R : Ince the thres error counter 
51 a #1 118 $3) Hoss #DDCMPS$C_THR_MAX,R1 3 pes the thres been exceeded 
; No 
57 4 AB 118 138 BISW2 #DLKSM_TRNSERR,R7 ; Report that thres exceeded 
1 D6 118 454 CLRL R1 3; Set the XMT threshold count 
at $3? 3; to zero 
00 51 #+$+FO 1187 439 10$: INSV R1,#DDCMPSC_XMT_THRS,- ; Insert count 
03 11BA $38 #DDCMPSC_THR SIZE,- 
01¢5 {3 118B 345 TFSW_THRES(RS) 
1 BEDO 11BE 460 POPL R1 
05 11C1 5461 RSB 
11C2 3462 
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| DDCMP - Software DDCMP SEP=19 :5 rt AX/VMS Macro V04-00 Page 82 
iv y04~000 Routines to increment threshold counter Bets 0° DRIVER.SR REID DDCMP.MAR;1 (88) 
11¢ 464 
i rt -SBTTL Read or clear error counters 
Vie G8) ; RESET_GCTRS = Clear global counters 
11¢ ies : This routine zeros the global counter fields. 
11€2 3471: INPUTS R3 = Address of GF block 
Ne tts 3 R5 = Address of TF block 
11¢ 47% : OUTPUTS R3 and RS are preserved 
ye $f? 3 : Global counters are zeroed 
We 679 BDCMPSRESET _GCTRS: 
sys Bt TIES Scho fhe GrsectsetRay 
$8 a B4 11C8 481 CLRW GF SW “Ree BCTRS(R3) 
BA 94 BS ri} CLRB CFSB- “RSETR3) 
Vice tbe ASSUME GFSB_MDF_CRC EQ GFSB_GH_CRC+1 
29 a3 BG SOCNICE «3486 CLRW  GFS$B_GH_CRC(R3) 
11D1 487 
05 118) +38 RSB 
Hi rf 4 ; RESET_TCTRS = Clear tributary error counters 
11D 138 : This routine clear error counters kept for specfic tributaries. riser ng 
1103 re 3; them for one tributary will not nessicarily clear them for all tributaries 
110 495 : INPUT R5 = Adress of the TF block 
He 7 F OUTPUT Tributary coutners are cleared 
1109 3499 BDCMPSRESET_TCTRS: 
01A8 C5 B4 11D2 500 CLRO TF $W_DEOBC(RS) 
O1AA C5 94 1106 501 CLRB TFSB_DEO(RS) 
OAD C5 B4 11DA 208 CLRW TFSW_DEIBC(RS) 
O1AF C5 94 11D 28 CLRB TFS$B_DEI(RS) 
01C1 CS 94 1188 504 CLRB TFSB_LRTO(RS) 
01C4 C5 94 11€ 505 CLRB TFSB_RRTO(RS) 
01BC C5 B4 11EA 206 CLRW TFS$W_STOBC(RS) 
018 Ce 94 vies 28 CLRB TFSB_STO(RS) 
gies cs gt Te Song tay TE SU-LBEBCRS 
BiB? 3 4 11FA 19 CLRW TFS$W_RBEBC(RS) 
01B9 C5 4 Bt 3 311 CLRB TF$B_RBE (RS) 
O1A4 C5 B4 (1 \¢ CLRW TFSW_SELSP(RS) 
019E CS) D4 1206 351 CLRL TFSL_DMSGX(RS) 
198 73 D4 120A ate CLRL TFSL_OMSGR(RS5) 
813 C 04 «#1 3 15 CLRL TFSL_DBYTX(RS) 
018C CS) 4 : ; 16 CLAL TFSL_DBYTR(RS) 
01c5 C5 B4 ' 16 8 CLR TFSW_THRES(RS) 
05 121A 53520 RSB 
| 
| 
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DOCMP - Software DDCMP SEP- :5 AX/VMS Macro Vv04-00 Pa 3 
Vv -000 Read or clear error counters "$28 Pa} 984 88: i: 3) DRIVER. REID DDCMP.MAR;1 a Bd) 


1218 1 
00 1218 ; ; HALT ; Problem if it gets here 
121C DRIVER_END:: 
121C 93524 ~ END 
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“SEP :50:47 YAX/VMS Macro V04-00 Page 84 
DOCMP - Software DDCMP 19-SEP-1984 00:50: : BoMAR:1 (86) 
Symbol table BSP 198¢ $8 :39 383 EORIVER. SRCIDDCM 
= DDCMPSC_EV_STT s E 
tA = 9008080 DDCMPSC-EV-XMT : 4 
SSBASE = 1 DDOCMPSC_FICL s g 
$$DISPL = 5 DOCMPSC_HEADER - r 
SSGENSW s 1 DDCMPSC“MAX_EV = boop see 
SSHIGH = 99900004 DDCMPSC-MILCI . ge 
SSLIMIT = 00000003 DDCMP$C“MODULO = Bp; b00F 
Ssh = 90000001 DDEMPSECNAR SS Teen = 90000002 
SSMNSW : - = 00000001 
SSMXS 2 900 001 DDCMPSC_NAK1 . B80 oH 
= 00000000 DDCMPSC_NAK1 
ACTSCCREMNT 2 ee DDCMPSCINAKI? z 09 i 
ACTS "HALT s 04 DDCMPS$C_NAK = Rae B88 
ACTS_ IGNORE = 00000001 DDCMPSC_NAK . $4 4 
ACTS-MAINT = 00000006 DDCMPSC_NAKB = Ronan be 
ACTECREVRSG : 29000008 DDCMPSC-NUREVT = 0000010 
ACTSCREPTIN = 0000000 DOCMPSC_NUMSTA = 90000008 
ACTS_RETERR = 60000006 DOCMPSC_NXTINTVL = OO0000FA 
ACTS” SENDNAK = 0000001 DDOCMPSC_QUA = 00000003 
ACTS_SENDSTRT = 00000003 DDCMPSC_RCV THRS = popsones 
ACTS_SETCHAR = 00000005 4p 9 Es CLOCK = 00000003 
- — od * 
ACTSTSTARTING = 00000008 DDCMP$C_RUNTQE = 994C4840 
ACTS_STARTINT = 00000008 DCMPSC_SEL_THRS = BopporT 
ACTS STARTMNT = 00000000 DDCMPS$C_SIZEOFQ = 0000007" 
ACTS_START_TIMER = 00000011 DOCMPSC_SOH = 00000003 
ACTS_STOP_TIMER . 9900001 +4 ek By A = 00000007 
suc woncx ssagniss a * B} _BRERE-STAMRS = $eee 
CHANGE STA “STA-FRI = 00000005 
CRCTABCE 00000084 R = 01 DDCMPSC“STA_ me 44 444 5 
000000C4 RG = 01 DDCMPSC-STA_FR = 
SocRPEae STA Se ESL = Sesautt 
DDEMPSCHE HDR 0000821 R 01 DDCMPS$C_STA_IST . 44503 
DDCMPSCMPANT S00OF FS R 01 oe 9B UM aeld _ 9090901 
ACK = “ . 
DDCRPSCTACIBITS z 000005 DDCHPSCSTPTOE : a7c9c380 
DOCMPSC~DEL = Boop ner DDCHPSC “SYN = 00000096 
DDERP SC ho = 000003 DDCMPSC_THR_MAX = 88 of 
poms flue : Sette Tet = $e 
DDERPSETEV-ERR 2 6 A DDCMPSC-XMT_THRS = 000 300 : : 
an VE = 00000000 DDCRPSERDTABLES ° 000022 Sia aa 
DDCMPS$C~EV“LNK F 3 Betapatce <5 01 
DDCRPSC~EV~ANT = 00 DDCHPSEVEN 09 ori Ro 
DDCMPS$C_EV_OMT : 000023E R 1 
DDCMPSC~EV-RCV = DDCMP$IGNORE . + 3 : O1 
DDCRPSC-EV-REP BBERPSINCR COUNTER. ee 
SC rmEVmert : f DDCMPSINCR™XMT~THRS Mae R 
CMPSC~EV"SRT - BO CRP SIS RTOa 1625 f 1 
DDCMPSC~EV"STA . SOAP SHAT NT QOOFAD R 1 
oak = 00000007 DDCHPSMAINT_HALT Q000F43 R 1 


“Site :50: AX/VMS Macro V04-00 Page 85 
sere = Software DDCMP Brgep-1984 00:11:32 EDRIVER.SREIDDCRPLMAR: 1 (80) 
Symbol table = 
DLKSC_XMTHSG 6 
spemrtn-B1T3e = Seat sctn-pape hate a 
seme “Pais sg SHEE pe its 
8 - 0 
SSteeavie on ent BER tee : 
DDCMPSRCVRSG oo0rBe R«éOT DLKSMMNTRCV = 90000001 
DDCMPSREM_RTOO ; cin me LKSM“MSGSENT 44 
RSTERR 
SOERPEREORT ee Hl Re a 
serete ea i Bie tHE = Senge 
DDCMPSRESET_ R 01 x 0000040 
shtean  va Base fl Reecttte Sse 
= S 
DDCRPSSELECT Satoees R Ot DLESACTRNSERR = 0000001 
DDCRPSSENDSTRT GO003DA R Ot DLKSACXATCAP = O00 0 08 8 
Smee ea ae | eemte : HoH 
DDCMPSSETCRC Do00tes RO DLKSV“BABBLE + 09000004 
DOCRPSSETUP_ENG_HDR tits ZR 1 DLKSV “BUF TOS = 00000003 
BbePesTARTRCE gonogs)y HBT BLERY = poangoat 
7 _ 
Bertie et HEM a : Sati 
DDCMPSSTARTMNT 000008(7 R 01 DLK$V_DUPLEX = 00000001 
DDCMPSSTART_SEL_ TIMER oes oT 3 DLKS$VHORCRC = 0000000 
DDCMPSSTART TIMER 00000988 Rt DLKSV_LNKLOST = 90000008 
DDCMPSSTOP_SEL TIMER 0000988 RG Ot DLKSVZLNTYP = Seon fooS 
DDCMPSSTOP~TINER Soogoce? ke OI DLKSVIMAINT = Bokoos 
DDCHPSTI Booosey Re Ot DLKSVMSGCNT = Bokoses 
DDCMPSTIMER_END = Sopeeei DLKSV-MSGSENT = 00000006 
DDCMPSV_BITT 0000018 DLK$V"PADBYTE = $0 0001 
DDCMPS$V~B1124 : S000 DLKSV=POINT = Boo oooy 
DDCMPSV~BI 00000810 R.—s«éd DLKSV"QEMPTY ae 45454 9 
DDCMPSKATERR 44 i + DLKSV~QFULERR = Boo oeoe 
DDCMPSXMTMSG 0000724 ROO DLKSVZRCVO = Soot joo? 
DDCMPSXMTMSG_ALT 09009 4 DLKSV_REPTIM = 0000000 
DLASA. POSTO 3 DLKSVREPWAIT 44 
BLAIR INER, ne Guay SEL = 10099086 
ASK”ADDR LENGTH 0 09 DLR SV 96 lotr 2 ° 8000 
DLESB-RAXREP : DLKSV“STATYP 4 444 
DLKSB-RAXSEL 00 DLKS$V~STO = 89090009 
DLKSB~ 4 4 DLKSVSTREAM . 1 
DLKSB_MSGCNT DLKSV_TRI 4 
LKSB-TRI DLKSWIREPWAIT 2 
DLESE_ACTNOTCOR . DLKSW SELWAIT FA R 
DLESC-RC SG . | DMPSRCVMSG OR } 
DLKSC"REQEBA ° DMPSREQEBA 4 R 1 
DLKSC_RETINFO . “ ets dhe R 1 
Se Sestia s 
DLE SC"USRINT = 00000004 
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Psect synopsis 


= Software DDCMP 
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' Psect synopsis ! 


-oeoma sm omaneoce won $ 


PSECT name Allocation PSECT‘No. Attributes 

- ABS. 08800 00 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL 

. BLANK . ( 4636.) 0O1¢ #1.) NOPIC USR CON REL LCL 

SABSS §0000%C ( 4656.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR 


¢ewececeoouccocscocsoccess 


' Performance indicators H 


iemmmeameanaae: oOo mm cee a 


Phase Page faults CPU Time Elapsed Time 
Initialization 35 00:00:00.0 00 +00 101-38 
—? processing 145 00:00: 8-3 Ba B998°8 
910 Bo BR! 3 0:01:19.04 

Synbol table sort 9 00:00:01.94 BR 2 00:0) «88 

s2 47 0:00:06.05 88:88 £0 <0 
Sees table output BOR: 0.25 00:00:00.09 
Psect synopsis output 0:00:00. 00:00:00.02 
beese~reterence output 80 00.58.4 88: 80: 00-08 
Assembler run totals 157 00:00:29.1 00:01:54.22 
The s¥erking set Limit was 2400 pages. 
164 bytes i (321 pages) of virtual memory were used to buffer the intermediate cod 
erty were 100 pages of symbol table space allocated to hold 1593 non-local and 56 


3524 source 109 8 were read in Pass 1, 


45 pages of virtual memory were used to define 42 macros. 


tmemomronananee 


produc ing, 29 object records in Pass 2. 


wae mere + 


! ; Macro library. statistics H 


Macro library name 


Bt aa OBJISYNCHLIB.MLB; 1 


55$DUA HRL 1B INMAL I BRY.MLB: 1 


MLB; 
55$DUA28 SYSLIB3STARLET. MLB; 2 
Tovaie (all Libraries) 2 


1659 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=L1IS$:DDCMP/0BJ=0BJ$:DDCMP MSRC$:DDCMP/UPDATE=(ENHS:DDCMP) +E XECML$/L1B+SHRLIB$:NMAL IBRY/LIB+LIB$:SYNCHLIB/LIB 


e. 
1 local symbols. 


EXE 


v04-00 
DCMP.MAR; 1 


Paar 50) 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NOSHR EXE RD 


WRT NOVEC BYTE 
D WRT NOVEC BYTE 
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